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BON CARACTER 


‘ilest un standard 
reconnu et appliqué 
dans le monde 
entier, c'est bien 
celui-là : tout caractère 
utilisé en informatique, 
qu'il soit imprimable ou 
non (les caractères de 
contrôle), est placé dans 
un tableau, sa place étant 
fixée par une norme 
internationale: c'est le 
code ASCII. Dès le départ 
de la micro informatique, 
ce code a été conçu pour 
être représenté sur 7 bits, 
donnant un code de 0 à 
127. 
De 0 à 31 (décimal), on 
trouve les caractères de 
contrôle non imprimables 
qui permettent de 
transmettre des ordres au 
dispositif récepteur 
pes imprimante, 
ichier, etc.). Le plus 
célèbre est le code 13 qui 
commande le retour à la 
ligne re return), 
suivi du code 12 qui est le 
saut de ligne (form as 
De 48 à 57 sont rangés les 
chiffres de 0 à 9, puis de 
65 à 90 les lettres 
majuscules de À à Z, et 
enfin de 97 à 122 les 
lettres minuscules. 
Les trous dans la 
numérotation donnée ci- 
dessus sont occupés par 
les caractères spéciaux 
tels que virgule, point, et 
autres signes 
mathématiques. Cette 
répartition, qui peut 
sembler en désordre, 
correspond en fait à une 
croissance ordonnée de la 
valeur des bits de la 
représentation numérique. 


Cette table de création 
américaine n'a pas tenu 
compte des caractères 
avec accents des autres 
langues, et de toute façon 
la lac manquait avec 
128 possibilités au départ. 
L'arrivée du PC d'IBM a 

opularisé l'extension de 
É norme ASCII sur huit 
bits soit 256 caractères. 
Les 128 premiers ne sont 
pas modifiés. En revanche, 
à partir du code 128 on 
trouve les caractères avec 
accents des langues 
européennes, quelques 
caractères grecs et signes 
mathématiques, et des 
caractères semi- 
graphiques autorisant la 
confection de tableaux 
par exemple, avec des 
traits continus, donc de 
présentation plus 
agréable que l'utilisation 
classique des - + ! et 
autres symboles. 


Il est évident que si les 
écrans sont prévus dès lors 
pour représenter ces 
caractères additionnels à 
la norme de départ, il 
n'en est pas de même 
pour les imprimantes 
acquises antérieurement. 
Vu la longévité de celles- 
ci, et surtout leur coût, 
faut-il les mettre à la 
poubelle ou se résoudre à 
imprimer des textes 
démunis des tableaux bien 
dessinés et de nos chers 
accents ? Il faut 
reconnaître qu'ils posent 
bien des problèmes 
d'orientation, vive les 
correcteurs 
orthographiques ! 


TIRUCS 


Avec l’arrivée des compatibles 

PC, les codes ASCIE sont passés 

de 128 à 256. Les imprimantes 
disponibles avant cette 


nouveauté n'en tiennent pas 
compte, Voici la recette pour 
les remettre à jo 


Une solution: 
Printer Adapter 3 


Une solution existe, à 
condition que 
l'imprimante en votre 
possession soit capable de 
travailler en mode 
graphique : la plus 
populaire est l'imprimante 
Epson type MX-80, 
équipée pour le plus 
ancien modèle du 
dispositif Graftrax. Cette 
solution consiste à 
remplacer le caractère 
absent par son équivalent 
en mode graphique. Nous 
avons trouvé dans le 
commerce un utilitaire qui 
permet d'adapter 
pratiquement toutes les 
imprimantes existantes et 
futures à un PC, il s'agit 
de Printer Adapter 3 
diffusé par Logiciels et 
Médias. Comme son nom 
ne l'indique pas, c'est un 
pos français écrit par 
ichel Bujardet. 
La disquette est 
accompagnée d'une 
notice de dix-huit pages 
expliquant de façon très 


[ 
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succincte son utilisation. 
L'ensemble comprend les 
fichiers suivants: 
— INSTALLE.BAT, 
utilisable par les 
possesseurs d'un disque 
dur, procède à la création 
d'un répertoire appelé 
PRAD (PRinter ADapter) et 
y effectue la copie de la 
disquette. 
— PRAD.COM est le 
programme de création 
ou de modification des 
pilotes d'imprimante, pour 
adapter votre imprimante 
si les pilotes fournis ne 
vous conviennent pas. 
Nous allons revenir en 
détail sur son utilisation. 
— PRAD.DEF est un fichier 
de configuration dont 
l'usage est réservé à 
Printer Adapter. 
— PRAD.COM constitue le 
‘moule’ des futures 
adaptations. 
— PRAD—xxx sont les 
pres d'adaptation 
ournis pour résoudre un 
certain nombre de cas: 
@e PRAD—UNI permet 
d'utiliser une imprimante 
quelconque en composant 
les caractères accentués 
par superposition de deux 
caractères (à condition 
| que l'imprimante accepte 
le retour arrière), et utilise 
une représentation 
approchée des caractères 
semi-graphiques de la 
norme IBM, par utilisation 
des caractères classiques 
+ - |. Cette solution est 
évidemment celle du 
pauvre mais le principal 
est de pouvoir imprimer 
dans l'attente du cadeau 
du père Noël. 
e PRAD—EPS permet de 
piloter une imprimante 
type Epson graphique 
sans ROM IBM. Les 
caractères accentués sont 
composés également par 
la superposition de deux 
caractères, par exemple 
pour obtenir é on 
superpose e et ', les 
caractères semi- 
graphiques sont 
reproduits, comme sur une 


imprimante compatible 
IBM, par dessin graphique 
de chacun de ceux-ci. 
Cela vous évite donc de 
solliciter votre ministre 
des finances pour un 
nouvel investissement. 
e PRAD—APL permet de 
piloter dans les mêmes 
conditions, les 
imprimantes Apple, 
DMP,ImageWriter 1 ou 2. 
e PRADUTI.EXE est un 
utilitaire permettant de 
configurer votre 
imprimante, en fonction 
de ses possibilités, pour 
différents styles 
d'impression, d'utiliser 
l'imprimante comme 
d'une machine à écrire, 
dans ce cas chaque ligne 
est imprimée au fur et à 
mesure, et surtout 
d'obtenir la liste des 
pilotes d'imprimantes 
résents en mémoire avec 
eurs ports d'affectation, 
plus la possibilité de les 
rendre actifs ou non (dans 
le cas d'impression de 
graphique). 
MSPool est fourni en 
prime, puisque c'est un 
programme du domaine 
public, pour continuer à 
utiliser votre compatible 
pendant l'impression. Une 
documentation en 
français est fournie sur la 
disquette. 


Mode d'emploi 


Vous choisissez l'un des 
trois programmes évoqués 
ci-dessus (PRAD—UNI, 
PRAD—EPS, PRAD—APL), 
et vous le placez sur la 
disquette de démarrage 
(ou dans la racine de 
votre disque dur). Vous 
pouvez lancer son 
exécution manuellement, 
OU incorporer son nom 
dans votre fichier 
AUTOEXEC.BAT. Ce 
programme est du type 
résident, il est chargé en 
mémoire, se met en 
attente, permet donc 
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d'exécuter un programme 
quelconque (traitement de 
texte par exemple). A 
partir de là, chaque fois 
que vous envoyez un 
caractère à l'imprimante, 
au lieu d'être adressé 
directement sur le port de 
sortie, il est détourné de 
son chemin habituel pour 
passer par le programme 
PRAD—xxx qui est alors 
réactivé d'une façon 
totalement transparente à 
l'utilisateur pour 
l'occasion. 

Le travail de PRAD—xxx 
consiste à consulter une 
table dite de 
“transcodage” 
comprenant deux 
colonnes. La colonne de 
gauche contient les 
valeurs numériques des 
codes ASCII (de 0 à 255), 
un code par ligne. Pour 
chacune de ces lignes, on 
trouvera dans la colonne 
de droite le, ou les, codes 
à envoyer réellement à 
l'imprimante. Si le code à 
envoyer correspond aux 
Ésbiriée d'impression 
de votre imprimante, sa 
valeur est envoyée sans 
aucune transformation au 
port de sortie, le temps 
perdu est alors 
négligeable. En revanche, 
dans le cas contraire, c'est 
la chaîne de caractères 
placée à droite de la 
table de transcodage qui 
est envoyée, et suivant son 
mode de traitement, le 
temps d'impression sera 
plus long. Vu les résultats 
obtenus, cela vaut bien un 
petit sacrifice. 

Pour éviter les conflits 
entre les différents 
programmes résidents, un 
ordre de chargement est 
conseillé sur la notice: 
MSPool 

PRAD—xxx 

PRADUTI R 

rem autres programmes 
D'autre part, il ne faut pas 
charger deux fois le même 
programme résident, car 
il y a risque de blocage du 
système. C'est pour éviter 
ce problème qu'il est 
conseillé d'incorporer les 
ordres de chargement 
dans le fichier 
AUTOEXEC.BAT, vous 


disposerez alors de votre 
vieille imprimante comme 
d'une petite jeunesse. 


Personnalisation 
de la 
table de transcodage 


Nous avons décrit plus 
haut le mode de 
fonctionnement de la 
table de transcodage, en 
mentionnant en particulier 
la chaîne de caractères 
placée dans la colonne de 
droite, chaîne réellement 
envoyée à l'imprimante. 
L'adaptation de cette 
table aux caractéristiques 
de l'imprimante, consiste 
à modifier le contenu de 
cette colonne, pour 
chacune des lignes des 
codes ASCII des 
caractères à reproduire. 
Ce travail est possible 
râce à l'utilitaire 
RADM.COM. Pour 
modifier une table, il est 
préférable de lui attribuer 
un autre nom, ou plus 
exactement une autre 
seconde partie de nom. En 
effet, le nom est composé 
de trois parties. Les deux 
premières parties 
correspondent au nom 
principal respectant les 
règles de MS-DOS, entre 
autres : 8 caractères 
maximum. Ce nom 
commence toujours par 
PRAD— et il est suivi par 
trois lettres qui 
différencient les versions 
de tables de transcodage. 
La troisième partie est 
toujours .COM. Avant 
toute modification vous 
devez donc produire un 
nouveau fichier sur lequel 
vous allez travailler, par 
exemple avec la 
commande: 
COPY PRAD—EPS.COM 
PRAD—ESS.* 
ESS étant la contraction 
de ESSAI, il est évident 
qe vous pouvez modifier 
irectement un fichier 
existant, dans ce casil 
n'est pas nécessaire d'en 
effectuer une copie, mais 
souvenez-Vous que 
l'original sera perdu. 


Dans le cas de notre 
exemple, sa modification 
sera lancée par la 
commande: PRADMESS, 
PRADM est l'utilitaire de 
modification, et ESS est la 
deuxième partie du nom 
du fichier à modifier. Un 
choix d'options est 
proposé: Changer la table 
de transcodage, Choisir le 
por de sortie sur lequel 
‘imprimante est 
connectée, Mettre à zéro 
la table de transcodage 
(Pour recommencer 
entièrement celle-ci), 
Quitter le programme, 
Aide; donnant un très 
(très) court résumé de la 
documentation. 
Cette possibilité est en fait 
l'atout principal de Printer 
Adapter. La table de 
transcodage est affichée à 
l'écran par page de 22 
caractères ASCII. On 
passe d'une page à l'autre 
au moyen des touches 
‘PgUp' pour remonter vers 
la première, et la touche 


‘PgDn' pour redescendre 
vers la dernière. 
Une page est composée 
de quatre éléments: 
— une bande supérieure 
donne l'intervalle des 
caractères présentés dans 
la page, 
— une bande inférieure 
rappelle les actions 
principales possibles: 
touche F2 pour quitter le 
mode modification avec 
sauvegarde de la table de 
transcodage active, 
touche DEL pour annuler 
le caractère pointé par le 
curseur, ue F10 pour 
obtenir à l'écran le 
caractère du code ASCII 
valeur zéro {ne pas 
confondre avec le code 
ASCII du caractère zéro), 
u'il n'est pas possible 
d'aftches autrement, sa 
représentation correspond 
à Control-@ (nous y 
reviendrons). 
— La zone centrale est 
divisée en deux tableaux, 
celui de gauche affiche 


uLDSE Qu FEURSCE 


sur chacune des 22 lignes 
la valeur numérique À 
code ASCII, et sa 
représentation à l'écran 
entre parenthèses, un 
code non imprimable est 
représenté avec deux 
caractères, en premier 
(accent circonflexe) suivi 
de @ pour le code 0, A 
pour le code 1, B pour le 
code 2, etc. jusqu'au 
caractère — (souligné) 
pour la valeur 31. Pour 
VOUS y retrouver vous 
remarquerez un décalage 
de 64 avec les caractères 
“normaux”. 

— Le tableau de droite est 
le plus intéressant pour 
nous, puisqu'il affiche le 
ou les caractères envoyés 
réellement à l'imprimante 
pour chacun des codes 
ASCII de 0 à 255 
(maximum 61 caractères 
par code ASCII). La 
convention suivante est 


. caractè 


adoptée pour la 
représentation des codes 
ASCII don affichables (ou 
caractères de contrôle), ils 
appardissent en 
surbrillance, par exemple 
le code ‘Retour Chariot’ 
(CR=Carriage return) 
valeur ASCII 13 ou encore 
Ctrl-M ést représente par 
M en surbrillance (si votre 
monitebr le permet). Les 
touches ‘flèches’ du 
clavier bermettent de 
déplacér le curseur 
clignotant sous l’une 
TUE des positions 


e cetté seconde partie 
du tabléau de 
tan coRnes 
En parchurant la table en 
cours dé modification 
vous cobstaterez que les 
es sans 
problèmes, c'est-à-dire 
ceux acteptés par votre 
imprimante, ne subissent 
pas de transformation, 


TRLICERETRASTUCES 


pe exemple on trouve 
igne 65 à gauche la lettre 
A et à droite la même 
lettre À. Si votre 
imprimante accepte le 
retour arrière (Ctrl-H ou 
BS ou Backspace), le 
caractère é (e accent 
aigu) code ASCII 130 est 
obtenu en envoyant 
successivement les 
caractères donnés ci- 
après entre parenthèses (e 
Ctrl-H ‘), les parenthèses 
ne sont pas envoyées, le 
travail effectué par 
l'imprimante est celui-ci: 
impression du caractère e 
retour sur celui-ci et 
superposition du 
caractère ‘ ce qui donne 
au total é. 
Il est évident que si vous 
disposez d'une 
imprimante moderne, 
toute cette gymnastique 
est inutile puisqu'il y a de 
forte chance qu'elle soit 
équipée avec la ROM 
compatible IBM, donc 
capable d'afficher 
directement les codes 
ASCII de 0 à 255. Pour les 
autres (moins fortunés ou 
plus conservateurs), reste 
à résoudre le problème de 
l'impression des 
caractères semi- 
sens ou exotiques 
ivers. 
Si votre imprimante n'est 
pas équipée pour faire du 
graphique il n'y a que la 
solution des caractères de 
substitution à prendre 
dans la gamme normale 
des codes de 32 à 126, 
voir la table de 
transcodage de PRAD— 
UNI. Si votre imprimante 
a la possibilité graphique, 
vous êtes sauvés puisque 
vous allez pouvoir 
concevoir n'importe quel 
caractère et l'envoyer à 
votre imprimante. Nous 
sommes absolument 
convaincu que le 
rogramme PRADM peut 
e faire, le gros (TRES 
GROS) problème est de 
répondre à la question 
stupide: comment? 


Au début de notre article 
nous avons dit que la 
notice était succincte, en 
voici la preuve, 
puisqu'elle est absolument 
muette sur la façon de 
procéder. 


Ou l’on pousse la 
réflexion plus loin... 


Normalement notre 
article devrait s'arrêter 
ici, mais nous avons 
poussé notre réflexion un 
peu plus loin, et nous vous 
donnons à la suite la 
façon de procéder avec 
en prime, la source d'un 
programme en Turbo- 
Pascal vous permettant de 
créer en interactif (ou 
presque), n'importe quel 
caractère dans une grille 
à définir jusqu'à un maxi 
de léxlé. 


Mode graphique 


Nous prenons comme 
modèle l'imprimante 
Epson MX-80, dont le 
mode de fonctionnement 
graphique se retrouve, 
quelquefois avec des 
modifications mineures, 
chez beaucoup de 
constructeurs, au point 
que l'on parle souvent de 
standard Epson. La tête 
d'impression est équipée 
de huit aiguilles placées 
sur une même verticale : 
l'aiguille numéro un est 
celle de la rangée du bas, 
l'aiguille numéro huit est 
celle de la rangée du 
haut. Un ruban encreur est 
interposé entre ces 
aiguilles et le papier : 
l'impression est réalisée 
de la même façon qu'avec 
une machine à écrire 
mécanique, par frappe 
d'une ou plusieurs 
aiguilles sur le ruban 
encreur, la tête 
d'impression se déplaçant 


longitudinalement sur la 
largeur du papier soit en 
480 positions, ce qui 
correspond pour une ligne 
de 80 caractères à 
480/80=—6 pas par 
caractère, ou 960/80=12 
pas. 

Pour réaliser la frappe 
d'une aiguille, le 
constructeur a associé un 
octet de donnée à la tête 
d'impression, pas par 
hasard, puisqu'un octet 
est composé de huit bits, 
chacun de ces bits est 
associé à une aiguille. Le 
premier à l'aiguille 
numéro un, ainsi de suite. 
Si un bit a la valeur zéro, 
l'aiguille correspondante 
est Immobile, et s'il a la 
valeur un, son aiguille 
vient frapper le ruban et 
retourne à sa place, cette 
action ayant laissé la 
trace d'un point sur le 
papier. Chaque bit 
représente un ‘poids’ 
suivant sa position, pour 
le calcul de la valeur de 
l'octet, suivant le schéma 
ci-après. 


N° Aiguille valeur 


— ND © à O1 ON NJ 0 


Pour activer les aiguilles 
2, 4 et 7, par exemple, il 
suffit d'affecter à l'octet 
de contrôle la valeur 
calculée comme suit: 


DEEE AMEN UOTE 
0+2+0+8+0+0+ 64 + 0 = 764 (-- Octet 


Toutes ces opérations se 
assent à l’intérieur de 
imprimante, l'utilisateur 
dispose d'une convention, 
le standard graphique 
Epson, pour commander 
ce processus. || suffit 
d'envoyer à l'imprimante 
le code ASCII 27 (Escape 
ou Saber suivi 
d'une séquence de codes. 
Voyons en détail cette 
séquence: 


ESCKbh…. 


ESC est la valeur 27 (en 
décimal) du code 
Esc 


e 
K Val ASCII 75 
pour définir le mode 
graphique 480 points 
à remplacer par L 
(valeur 76) en mode 
960 points 

représente le poids 
es du nombre de 
positions de la tête 
d'impression compté 
sur ? octets 

est le poids fort (nous 
y revenons après) 

est la suite des valeurs 
de l'octet de 
commande de la tête 
d'impression, une 
valeur par position de 


celle-ci. 
Le b et le h ci-dessus 
nécessitent une petite 
explication: l'imprimante 
étant connectée au port 
arallèle de l'ordinateur, 
es données sont 
MARNE € sur huit fils 
pores s. Vous savez que 
uit fils correspondent à 
un octet, d'où une plage 
de variation de valeur de 
0 à 255. Comme nous 
devons pouvoir envoyer à 
l'imprimante jusqu'à 960 
octets pour réaliser une 
ligne entière en 
caractères graphiques, la 
convention suivante est 
adoptée: en divisant le 
nombre par 256, on 
obtient un quotient et un 
reste. Par exemple 452 
nous donne un quotient de 
letun Aste de 196. Le 
poids fort est de 1 et le 
poids faible est de 196, ce 
qui donne suivant la 
convention ci-dessus: 
b=196 et h= 1. Autrement 
dit, en Basic par exemple, 
le début de l'instruction se 
présenterait comme suit: 


LPRINT | 
CHR$(27);K;CHRS(196); 
CHR(1); [suivi des 452 octets 
de la ligne graphique] 


Pour résoudre notre 
problème, c'est plus 
simple puisque notre 
caractère sera défini en 
principe avec 7 octets 
d'où b=7 et h=0. Pour 
bien comprendre le 
mécanisme, prenons un 
exemple. Soit à imprimer 


Se 
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le caractère inscrit dans 
une grille de 7 colonnes et 
de 8 lignes donné ci- 
après: 


XXXXX 
XX XX 
AA AA 
SE 
CR 
X X X X 
XX XX 

XXXXX 


Avec beaucoup 
d'imagination cela 
ressemble à un sablier. 
Pour composer notre ligne 
de commande à 
l'imprimante, nous 
commençons par analyser 
chaque colonne. La 
colonne 1 a toutes ses 
lignes occupées par des 
croix sauf lés deux 
extrêmes, donc sa valeur 
est de: 


0 +2 +4 +8 +16 +32 +64 +0 
—126 


La colonne 2 est calculée 
comme suit: 


1 +2 +0 +0 +0 +0 +64 +128 
=195 


De la même facon, on 
trouvera les valeurs 
suivantes: 

colonne 3 = 165 

colonne 4 = 153 

colonne 5 = 165 

colonne 6 = 195 

colonne 7 = 126 

Nous pouvons maintenant 
construire notre chaîne à 
envoyer à l'imprimante, 
qui comprend la suite des 
nombres décimaux: 
2715710126 195 165153 
165 195 126 


En Basic, nous écrivons 
l'instruction suivante: 


120 LPRINT CHRS(27);K; 
CHR$(7); CHRS(0); 
CHR$(126);CHR$(195); 
CHRS(165);CHR$(153); 
CHR$(165);CHR$(195); 
CHR$(126) 


Pour revenir à notre 
problème de 
personnalisation de notre 


table de transcodage, si 
nous décidons d'affecier 
ce caractère ‘‘sablier’’ au 
caractère de code ASCII 
251 par exemple, nous 
faisons défiler les pages 
de 22 caractères jusqu'à 
ce qu'il soit possible de 
ositionner le curseur sur 
a ligne 251, nous effaçons 
les caractères de la partie 
droite, que nous 
remplaçons par la frappe 
des 11 caractères dont les 
valeurs décimales sont 
données ci-dessus. Nous 
vous rappelons encore 
une fois, qu'il suffit pour 
entrer chaque valeur, 
d'appuyer sur la touche 
ALT et, sans la relâcher, 
de composer la valeur 
décimale. Ce qui doit vous 
donner une ligne 
composée comme suit: 


CKGO" RE” 


Les caractères | G @ 
doivent être affichés à 
l'écran en surbrillance 
comme indiqué plus 
avant. Nous avons essayé 
de montrer la façon de 
procéder pour imprimer 
un caractère quelconque. 
Ce n'est pas compliqué, il 
suffit de Léa e 
méthode et de patience. 
Le plus fastidieux est de 
dessiner un caractère sur 
une grille et de calculer 
les valeurs des octets de 
chacune des colonnes. 
Pour vous aider, nous vous 
présentons un programme 
en Turbo-Pascal d 
effectue ce travail. 


Matricage 
d'un caractère 


Au lancement du 
programme, vous 
choisissez la grille 
d'implantation du 
caractère à dessiner, 
jusqu'à un maximum de 
16x16. La grille est 
affichée à grande échelle 
sur l'écran, et sur la partie 


droite dg celui-ci, vous 
avez la liste des valeurs 
des octets de chacune des 
colonnes. Un curseur est 
dessiné dans la case 
inférieure gauche de la 
rille, ce curseur est 
deblèc à l'intérieur de la 
rille à l'aide des touches 
éches du clavier. L'appui 
sur la touche RETOUR 
inverse la couleur de la 
case où se trouve le 
curseur. De noir, elle 
passe à blanc et vice- 
versa. 
Sur le côté droit de la 
grille une image à petite 
échelle vous permet de 
vous rendre compte du 
rendu du caractère en 
cours de constitution (une 
case est représentée par 
un pixel écran). La liste 
des valeurs des octets de 
chaque colonne est mise à 
jour en dynamique en 
Énction de la couleur de 
chacune des cases de la 
grille. 
Lorsque le caractère 
correspond à vos désirs, il 
suffit d'appuyer sur la 
touche | (comme 
Impression) pour obtenir 
sur l'imprimante, non 
seulement le caractère, 
mais également les 
valeurs de chacune des 
colonnes, valeurs à 
reporter dans la table de 
transcodage comme nous 
vous l'avons expliqué plus 
haut. Il est alors possible 
de modifier le caractère 
en cours d'étude avec la 
touche R (comme Reprise), 
d'étudier un autre 
caractère avec la touche 
À (comme Autre 
caractère), où de terminer 
le programme avec la 
touche F (comme Fin). 
Sans procéder à l'analyse 
détaillée de ce 
programme nous allons 
signaler quelques points 
particuliers. 


Programme 
de matricage 
Ce programme utilise les 


possibilités graphiques 
pour représenter la grille 


et le curseur. Le problème 
est qu'il éxiste 
principalement deux 
standards pour les 
compatibles: la carte 
CGA dont nous utilisons la 
définition monochrome 
640x200, let la 
compatibilité Hercules 
monochrome de 720x348 
(nous ne parlons pas du 
standard|IEGA 
inaccessible actuellement 
pour les 4mateurs). 
L'autre problème avec 
Turbo-Pascal est 
l'obligation d'utiliser le 
ToolBox graphique pour 
commander la carte 
Hercules,|ce qui est une 
solution très lourde pour 
un programme aussi 
simple. Dlautre part, il 
n'existe pas de possibilité 
de compilation 
conditionhelle permettant 
de concevoir un 
programrhe fonctionnant 
dans les deux cas de 
figures. Lés principes 
adoptés sbnt les suivants: 
— pour le graphique en 
mode CG, pas de 
problèmelpuisque Turbo- 
Pascal (version 3.x) 
comprend les procédures 
standard Hires pour 
l'initialisafion en mode 
640x200 monochrome, 
Plot pour dessiner un 
point, Draw pour dessiner 
une ligne et TextMode 
pour désattiver le mode 
graphique ; 
— pour lelgraphique en 
mode Herktules, nous 
utilisons lés primitives 
incluses dans la carte via 
l'interruption 10h. En 
effet, Herdules (ou ses 
compatibles) fournit un 
logiciel utilitaire appelé 
INT10.COM, qui doit être 
appelé à l'allumage de la 
machine (par 
incorporation dans le 
fichier AUTOEXEC.BAT 
par exemple) après le 
traditionnél HGC FULL, 
dont le buf est d'apporter 
une extens|on aux 
aramètres de 
‘interruptipn 10h. En 
articulier} nous utilisons 
‘attribut 40h pour 
initialiser lé mode 
raphique |en 720x348, 
Patiribut 42h pour effacer 


l'écran graphique, 
l'attribut 41h pour 
restituer l'écran 
alphanumérique, l'attribut 
44h pour donner la 
‘’couleur'" du tracé, 
l'attribut 46h pour 
dessiner un point, les 
attributs 48h pour 
déplacer le curseur 
graphique ‘plume levée” 
et 49h pour le déplacer 
‘plume baissée”’, et enfin 
l'attribut 4Bh pour écrire 
un texte en mode 
graphique (dans une 
matrice de 9x14 pixels. 
Comme vous pouvez le 
constater, sur la source 
Turbo-Pascal l'appel aux 
interruptions est très 
facile. Pour obtenir un 
programme identique 
dans les deux cas de 
figure, nous avons adopté 
la convention suivante: 
toutes les primitives 
graphiques et les 
paramètres propres à un 
mode graphique sont 
déportés dans un fichier 
appelé GENECAR.GRA 
qui sera incorporé dans 
notre programme au 
moment de la compilation 
par la directive {$l 

enecar.gra}. 

es procédures apportées 
par ce fichier sont: G—Ini: 
pour l'initialisation des 
paramètres de dimension 
d'écran (G—Lecran et 
G—Hecran), de position 
de grille et ses pas en x et 
en y, et l'appel de la 
fonction d'initialisation 
propre à une carte. G— 
Ligne pour dessiner une 
ligne entre les deux 
couples de coordonnées 
fournis. G—Point pour 
dessiner un point. G— 
Write pour écrire un texte 
en mode graphique à un 
emplacement défini, G— 


Texte pour revenir en 
mode Texte. Nous 
réparons deux fichiers, 
GENECAR.CGA qui fera 
appel aux procédures 
standards graphique de 
Turbo-Pascal, et 
GENECAR.HGC qui fera 
appel aux paramètres de 
interruption 10h apportés 
par la carte Hercules. 
Avant la compilation, il 
suffit de choisir 
l'installation visée, et 
d'effectuer la copie du 
fichier Genecar.CGA ou 
Genecar.HGC dans le 


fichier Genecar.GRA 
(copie réalisée par 
exemple avec la 
commande DOS ‘COPY 
GENECAR.HGC *.GRA'). 
Nous avons solutionné 
plusieurs problèmes au 
cours de cet article qui, 
nous l'espérons, n'a pas 
été trop indigeste : la 
transformation d'une 
imprimante quelconque 
en une imprimante 
compatible IBM en 
utilisant le logiciel du 
commerce Printer Adapter 
3 de Logiciels et Medias, 


l'utilisation du mode 
graphique d'une 
imprimante type Epson, et 
l'utilisation de la carte 
graphique Hercules à 
partir du Turbo-Pascal 
(nous reviendrons plus en 
détail sur ce sujet). Vu la 
longueur du texte, il vous 
faudra attendre le n°9 du 
PC Magazine pour avoir 
les listings. 
Printer À obièr dt 
1 097,05 F ttc. 
Logiciels et Médias, 125, 
rue Saussure, 75017 Paris. 
Pierre Squelart 


PETITES ANNONCES GRATUITES 


Pour acheter, revendre, ou échanger du matériel, pour établir des contaûts, 
rédigez votre petite annonce très lisiblement, en majuscules 
NOM ER Lente da sn nie dote ce RER MO PFÉNONME NT ER ETS RER RE RÉ 
ANCIEN RARE ee nn ee ei a RER Ut et PAR TS A RS An EN NE Re DE 
LÉ CHR: 


sn nee iN eue Niélete laine sie ere Se ae dele nié cs ïeie ses mas su Sete. n6.e 0 5 0 0 0 mie ntels io siv-sfalerh nie ls: sie tas 55e 


Bon à renvoyer à : 


nn sn nn nn nn mms 


Compatibles PC Magazine 
5/7, rue de l'Amiral Courbet 
94160 Saint-Mandé 


CCC 


CCC 


TÉLICERETRAETUCEE 
CONFIGURATION DE 


IMPRIMANTES 


-Je ne peux imprimer les minuscules accentuées... 
Au lieu des caractères graphiques j'ai des lettres en italiques... 
Ce logiciel me fait des sauts de lignes et de pages en toute 
fantaisie. » 


Qui accuser ? Le PC, l'imprimante, le vendeur, ou le logiciel ? Neuf fois sur dix, 


le fautif, c'est l'utilisateur : vous ! Mais attention, vous avez beaucoup de 


circonstances atténuantes.. En effet, configurer correctement une imprimante est 


loin d'être une chose simple, et il faut reconnaître que les notices, même en 


français, sont partiellement rédigées en “chinois”. Pour se tirer d'affaire tout 


seul il est absolument indispensable d'assimiler certaines notions générales. 


es règles de base ne sont pas ardues 

mais assez... spéciales”. En fin d'ar- 

ticle, nous évoquerons le cas des 

imprimantes laser. Le problème est 
généralement complexe parce que le 
concepteur d'une imprimante veut que 
son produit convienne à tous les micro- 
ordinateurs, et ce des antiques Apple Il 
jusqu'au Compaq 386, en passant par les 
Atari, Amstrad CPC, etc. Pas simple ! 
Aussi prévoit-il toute une batterie de 
micro-interrupteurs destinés à se plier 
aux caprices de ceux qui ont conçu ces 
micro-ordinateurs ê combien différents. 


Principe de fonctionnement 
d'une imprimante 


Par son câble d'entrée, l'imprimante ne 
recoit que des nombres, à savoir les 
‘codes ASCII" des caractères à tracer sur 
papier, mais aussi des ‘codes Epson’ qui 
sont des ‘‘consignes” d'écriture. 

La partie électronique rappelle beau- 
coup celle d'un ordinateur : micropro- 
cesseur, mémoire vive RAM, mémoire fixe 
ROM. En final, il ne s'agit pas de balaya- 
ge vidéo, mais de commandes purement 
électriques : un moteur pour faire avan- 
cer le papier, un autre pour déplacer la 
‘‘tête d'impression”, et dans celle-ci des 
électro-aimants miniatures pour action- 
ner les neuf (ou vingt-quatre) ‘'aiguilles"” 
qui inscriront de minuscules points noirs 
sur le papier. 


Parlons d'abord du contenu de la ROM : 
— Un ‘programme résident” qui traduit 
le code ASCII reçu par le câble — exem- 
ple : 68 pour un D majuscule —, par une 
suite de commandes aux aiguilles asso- 
ciées au déplacement latéral de la tête. 
Une telle précision de micro-mécanique 
nous laisse rêveur, surtout à 240 caractè- 
res par seconde | 

— Cette ROM comprend aussi l'ensemble 
des codes Epson qui constituent le “lan- 
gage résident” de la machine. Ils vont 
paramétrer l'impression, par exemple le 
changement de taille des caractères. 
Pour la RAM, disons qu'il y a deux 
mémoires vives différentes : 

— le ‘buffer des consignes”’ contenant les 
codes Epson actuellement en vigueur, 
par exemple écrire en gros caractères et 
en gras ; 

— le “buffer d'impression" qui, lui, est 
constamment renouvelé puisque l'on y 
stocke les codes ASCII des caractères à 
imprimer. Selon le prix de la machine, ce 
buffer va de quelques dizaines d'octets à 
16, 32 ou 64 ko. 

Ceci nous amène à une évidence : la 
mécanique de l'imprimante ne peut pas 
suivre le débit en caractères de votre PC. 
Celui-ci est régulé par l'imprimante qui 
lui dit «stop ! mon buffer est plein pour 
l'instant. ça y est, je suis de nouveau 
prête (‘‘Ready"') à en recevoir». Il y a donc 
un dialogue entre les deux machines, et 
ce par l'intermédiaire de certains fils du 
câble de liaison parallèle. 


Les codes de consignes 


Parmi les 255 valeurs numériques possi- 
bles qu'elle reçoit|par le câble, voici 


comment l'imprima 


te identifie les codes 


de consignes des caractères à imprimer : 


— Est à imprimerto 
32 et 255, (NDLR : 
caractère DEL, son 


tcode compris entre 
auf le 127, le vieux 
origine date des ru- 


re déjà perforé uns 


ul moyen : perforer 


bans perforés où a effacer un caractè- 


toute la colonne, 127 en binaire). 

— À mettre dans le|buffer de consignes 
les codes entre 0 et 81. Si code=—27 (ESC) 
mettre également lés un ou deux codes 
qui suivent. Exemples de consignes : 

@ code 15 --> écritire en condensé. 

@ codes 27 puis 69 [lettre E) --> écriture 
en gras. (ESC E) 
@ codes 27, 120 (leftre x), 49 (chiffre 1) 
--> qualité courrier [ou NLQ ou roman). 
C'est le code Epson ESC x 1 

Ces exemples font |partie du ‘codage 
Epson”’, qui est devehu la norme interna- 
tionale. Mais ilexiste aussi d'autres coda- 
ges, heureusement fort peu usités : 

— les codes IBM commencent tous par 
Esc (27). De ce fait, les codes 0 à 31 sont 
des caractères graphiques supplémentai- 


res. Reconnaissons q 


planter le standard 
— les codes maiso 


e l'idée était bonne, 


pson. 
s spécifiques à tels 


mais elle venue E tard pour sup- 


modèles d'imprima 
anciens modèles de 


(DMP 1), Tandy.. Cf 


enfin abandonnée. 


tes, exemples des 
Seikosha, Amstrad 
te pratique semble 


Les tables de caractères 
La bonne vieille soins des codes ASCII, 


partiellement respec 
est en gros la suivant 
— Les codes sur sept 
à 128) rassemblent 
usuels, à savoir sig 
chiffres, lettres majus 
— Les codes sur h 
reprennent ces même 
italique, plus quelq 
ques. 


ée par les IBM PC, 


bits (donc inférieurs 
tous les symboles 
s de ponctuation, 
ules et minuscules. 
it bits (128 à 255) 
are mais en 
es signes graphi- 


— Les douze codes 3 
94/95/123"124;125 
à la représentation d 
à treize pays, dont 
minuscules accentué 


b, 360491 92,98 
+ 126 sont réservés 
s lettres spécifiques 
a France pour ses 
. Ces changements 


9 


de ‘nationalités’ s'effectuent par micro- 
interrupteurs ou par le code Epson ESCR 
n. 

Voyons ce qu'est devenue cette norme, 
revue et corrigée par IBM pour les PC 
depuis 1981 : 

— Les codes sur sept bits de 32 à 127 
restent inchangés. 

— Les sept codes ‘internationaux"" sont 
figés en pays = USA. 

— Les codes sur huit bits sont des caractè- 
res graphiques parmi lesquels on trouve 
les minuscules accentuées françaises, es- 
pagnoles, norvégiennes, etc. 

— Les codes 1 à 31 «peuvent être» des 
symboles graphiques, sauf si l'on utilise 
les ‘‘codes Epson” pour le codage des 
consignes. 

Donc deux conclusions : 

© Notre imprimante doit posséder les 
“caractères graphiques IBM“ (généra- 
lement le jeu n°2). Or certains modèles 
anciens, ou «dédiés» à d'autres micros, 
ne possèdent pas cette «EPROM IBM». 

@ L'imprimante doit être impérative- 
ment ‘“switchée USA“ et surtout pas 
Fe le code Epson ESC R ne sert 
plus. 


Les “tables IBM" 


Le manuel de votre imprimante présente 
plusieurs tables de caractères, indiquant 
ce qu'imprimeront les codes de 0 à 255. 
On y trouve la table ‘antique et stan- 
dard'' avec les italiques, à ne pas pren- 
dre, et quatre ‘‘tables IBM" : 

On les reconnaît par la présence, entre 
128 et 255, de nombreux symboles en 
traits simples et doubles (pour dessiner 
des encadrements). Ce sont les mêmes 
que vous pouvez obtenir à l'écran. 
Certaines tables proposent des symboles 
intéressants de codes 0 à 31. Hélas ! pas 
question de les choisir (du moins pour 
l'instant), car ils sont incompatibles avec 
la majorité des logiciels. Un exemple 
convaincant est le joli symbole du code 
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12 : sur écran, c'est l'effacement (CLS), et 
sur imprimante c'est le saut de page ! (FF). 
Autre exemple irritant pour qui désire 
faire une recopie d'écran avec les quatre 
caractères triangles 16, 17B, 30 et 31. On 
choisira donc la table qui déclare les 
codes 0 à 31 (1F en hexa) comme étant 
des consignes (BS, LF, FF, CR...), et tout le 
reste en caractères imprimables. 
Généralement, c'est la table ‘IBM 2”, 
mais cette nomenclature mal normalisée 
peut être différente dans certains ma- 
nuels d'imprimantes. Voici un exemple 
extrême : le manuel de l'Epson FX-800 
propose quatre ‘tables Epson’ plus qua- 
tre ‘‘tables IBM". Eh bien, celle qui corres- 
pond à la description que nous venons de 
donner s'appelle ici “table Epson n° 4” ! 
Afin de vérifier que votre configuration 
est correcte, lancez le petit programme 
Basic ‘CARACTPC"”, et conservez pré- 
cieusement la page qu'il imprimera. 
Nota : Les symboles graphiques pour 
encadrements existent en traits simples et 
doubles, or certaines imprimantes an- 
ciennes ou bas de gamme traduisent en 
traits simples les caractères en traits dou- 
bles (Brother M-1509, Epson FX-85...). 


Rôle des micro-interrupteurs 


Ils sont destinés à fixer des paramètres 
par défaut lors de la remise sous tension 
de l'imprimante. Cette simple phrase im- 
plique donc que : 

— la manœuvre d'un micro-interrupteur 
sous tension n'a aucun effet immédiat, 
elle est même dangereuse pour l'électro- 
nique ; 

— les codes Epson (consignes) envoyés 
par le PC seront prioritaires sur ces 

‘consignes par défaut’, qui peuvent 
donc être contredites ou annulées. Une 
seule exception, la forme du chiffre zéro 
(barré ou non) pour laquelle il n'existe 
pas de code Epson correspondant (à ma 
connaissance). 


Certains choix sontlobtenus par la combi- 
naison des positions de deux ou trois 
micro-interrupteurs. Exemple ON-ON- 
OFF, OFF-ON-ON... 
Il arrive aussi qu'un bloc de micro- 
interrupteurs ait des fonctions complète- 
ment différentes selon la position d'au- 
tres micro- interrupteurs | C'est le cas de 
modèles Citizen. 
Selon le modèle et|la marque de l'impri- 
mante, le nombre de ces micro-interrupteurs 
varie entre 8 et 82. || y a donc une 


anarchie totale po 


bre des ‘‘questions|' 


éluder cela dans le 


r la nature et le nom- 
posées. Nous allons 
paragraphe suivant. 


Positionnement des 
«micro-Interrupteurs» 
de l'imprimante 


Précaution numéro 1 : notez sur une 
feuille les positions d'origine puis celles 
que vous aurez établies. Feuille à fixer 
dans le manuel. 
Précaution numéro 2 : éteindre l'impri- 
mante…. 
Forme du zéro : barré, sauf si vous faites 
surtout du traitement de texte. Bien que 
pour ce dernier il soit fréquent d'utiliser 
O majuscule pour dre 


Taille des caractères (Size) : normale 
(ou pica) = 10 cpi (caractères par pouce) 
= 80 par ligne. 
Police (Font) : normale (‘‘draft''). Les po- 
lices NLQ (= ROMAN = qualité courrier) 
ou ‘‘sanserif'’ seront établies par les tou- 
ches du panneau frontal ou par codes 
Epson. 
Espacement proportionnel (PS) : non, 
surtout pas, sauf par option dans un 
traitement de texte 
Nationalité : USA. 
Codes Epson/IBM : Epson. 

ltaliques/Graphiques : Graphiques (ta- 
bles IBM) 
Table IBM : le plus souvent 2. A vérifier 
dans le manuel. 


hissbtntianéitéienr 


| 


URDSE Qu ÉEURSE 


Input buffer (RAM caractères à impri- 
mer) : oui ou taille maxi. L'imprimante 
“rend la main” au PC avant d'avoir 
terminé l'impression. Seul cas où ce buf- 
fer est gênant : la mise au point des 
programmes d'édition. 

LF (LINE FEED, saut de ligne supplé- 
mentaire) : non avec les PC et la majori- 
té des micros actuels. 

FL (FORM LENGTH, longueur de page 
11 ou 12 pouces) : pour le papier conti- 
nu, regardez la boîte du papier listing et 
choisissez en conséquence. 

Skip Over : non. C'est un saut de 1 pouce 
(25,4 mm) en bas de chaque page avec 
papier en continu. Parfois utile si ces 
listings sont ensuite photocopiés ou mis 
en classeur. 

Feuille à feuille/Continu : selon votre 
alimentation en papier. Attention, cela 
n'assure pas la commutation mécanique 
de l'entraînement du papier (friction ou 
traction par picots). 

Feuille à feuille manuel/automatique 
(bac à feuilles) : le plus souvent, c'est un 
ergot du bac qui établit automatique- 
ment cette commutation. 

PE (paper end detector, détection de 
fin de papier) : oui, sauf en cas d'alimen- 
tation manuelle en feuilles séparées ou 
enveloppes. Souvent, le positionnement 
en ‘feuille à feuille” neutralise de lui- 
même le PE. A vérifier. 

Buzzer : oui, c'est plus prudent. 

SLCT IN : oui (ON). En OFF, la machine 
attend que le micro la débloque par la 
broche n°36. Or celle-ci n'est pas tou- 
jours soudée, dans le câble du côté PC... 
Interface série : certaines imprimantes 
ont en plus un connecteur d'entrée ‘série 
RS 232 c'' à 25 broches. En ce cas, on 
trouve des micro-interrupteurs pour pa- 
ramétrer le signal en accord parfait avec 
ce qui a été défini (par soft) sur le micro : 
par exemple, 9 600 bauds, 8 bits, 1 bit 
d'arrêt, pas de parité. Cela a peu d'inté- 
rêt avec les PC, car la liaison ‘parallèle’ 
type Centronics est bien préférable ! 
Nota : ces micro-interrupteurs miniatu- 
res sont mécaniquement fragiles, ils ont 
été conçus pour être positionnés une fois 
pour toutes, ne les surmenez pas... Assurez- 
vous que leurs leviers sont bien en butée 
car, contrairement aux interrupteurs clas- 
siques, ils ne renferment pas de ressorts 
internes. 


Problèmes de sauts de pages 


Prenons le cas le plus banal, papier 
continu avec longueur 11 pouces, et bien 
sûr le micro-interrupteur en question mis 
sur ‘11 pouces”. 

Comme l'interligne normal est de six 
lignes au pouce, la machine sait qu'une 


page fait 11 x 6 = 66 lignes, qu'elle va 
comptabiliser au cours de l'impression. 
Mais comment mettre le compteur de 
lignes à zéro en début de page ? Deux 
méthodes : 

a - la mise sous tension. 

b- le code Epson ESC (codes 27 et 64), qui 
a aussi pour effet de vider le buffer des 
consignes. 

C'est surtout ce dernier rôle de ESC que 
l'on connaît, d'où un usage souvent abu- 
sif en programmation pour supprimer des 
consignes d'écriture, alors qu'il existe 
toujours un code d'annulation pour cha- 
cune d'elles. On comprend alors le pour- 
quoi de sauts de pages soit disant ‘‘fan- 
taisistes””. 

Cas du saut de page anticipé par le 
code 12, exemple en Basic LPRINT 
CHR$(12) : ce dernier ne fait pas avan- 
cer le papier de 11 pouces commé on le 
croit, mais du complément de lignes res- 
tant à faire pour terminer la page, d'où 
reprise de l'écriture en haut de la page 
suivante. Et c'est là qu'apparaît un autre 
piège qui provoque un décalage d'une 
ligne à chaque page : il fallait ajouter un 
point-virgule, LPRINT CHR$(12); 

Autre cas, vous disposez d'une impriman- 
te à chariot large avec bac à feuilles 
garni en ‘format commercial" (A3). Vous 
décidez d'élargir encore votre tableau et 
pour cela d'imprimer “à l'italienne‘, 
c'est-à-dire en orientant les feuilles dans 
le sens de la longueur. Bonne idée, mais 
pensez alors à prévenir votre imprimante 
que maintenant les pages sont moins 
hautes. 


Problèmes de sauts de lignes 


Un saut de ligne est commandé par le 
code 13 (retour à gauche de la tête 
d'impression), suivi du code 10 (avance- 
ment papier d'une ligne). Ainsi, pour 
LPRINT “A” (code 65), l'imprimante re- 
coit en fait les codes 65, 13 et 10. 
Beaucoup se sont cru lésés en constatant 
qu'en écriture en condensé il n'y avait pas 
132 caractères par ligne mais toujours 
80 ! Cela vient des PC qui, par défaut, 
insèrent un saut de ligne après le quatre- 
vingtième caractère. C'est la taille du 
‘buffer d'imprimante’’. On peut très faci- 
lement modifier cela : 

— sous DOS faire MODE LPTI1:255,6 
(longueur 255, 6 lignes au pouce), 

ou bien 

— en Basic faire WIDTH “LPT1:",255. 
Lorsque la tête de l'imprimante arrivera 
en bout de course, il y aura insertion 
automatique d'un saut de ligne. 

On résume 

Le saut de ligne est provoqué par : 

— la fin d'impression d'une ligne, exem- 
ple LPRINT ‘A; 


— la taille maxi du 
— la ‘butée méca 
À partir de cela, 
certains sauts de li 


buffer imprimante ; 
ique”’ du chariot. 

on va comprendre 
nes farceurs : 


1 - FOR N=1 TO 8/LPRINT AS(N):NEXT 
Si la longueur de |A$(3) est égale à la 
taille du buffer aus la largeur maxi du 
chariot, il y aura une ligne blanche au- 
dessous. 
2 - Vous avez unelimprimante largeur 
normale (8 pouces soit 20,3 cm), en 
écriture condensée, vous avez fixé le 
buffer d'imprimante à 255. L'édition 
est correcte. Votre logiciel tourne à pré- 
sent sur le même papier mais sur une 
imprimante à chariot large, et la tête 
imprime ses fins del lignes sur le rouleau 
caoutchouc. Il fallait fixer le buffer à 
132. 

3 - Vous êtes de nouveau en pica (80 
caractères/ligne) mais le buffer est 
resté fixé à 132, ef vous imprimez une 
longue chaîne. Sur|la seconde ligne saut 
de ligne après 52 |caractères. Normal, 
80 + 52 = 132 ; finldu buffer... Il est pru- 
dent de fixer le RE à un multiple de la 
longueur ligne. 


Problèmes de compatibilité 


Acte 1 
Pour concurrencer Le: imprimantes X, le 
fabricant de la marque Ÿ doit répondre à 
deux impératifs : 


— être compatible 
les X, d'où respect 
telles que les ‘co 
d'entrée type ‘"CEN 


hvec les vieux modè- 
de certaines normes 
es Epson", la fiche 


RONICS"", etc. 


— proposer des nquveautés dont X ne 
disposait pas. On inVente ainsi la ‘‘quali- 


té courrier”’, la ‘‘do 


si c'est nouveau 


ble hauteur", l'espa- 


cement SR Here Oui, mais alors, 


dard' | 
Acte 2 


e n'est plus ‘'stan- 


Et ceux qui fabriquent des logiciels 2 Ils 


ont intérêt à ce qu 


€ leur (cher) produit 


puisse lui aussi ps à ces impriman- 


tes en évolution per 


anente. Ce qui sous- 


entend qu'il doit saboir tirer profit d'un 


modèle moderne ha 


ser des ‘‘plus'”), sino 


t de gamme (propo- 
l'acheteur de l'im- 


primante aurait le| droit de se sentir 


frustré par ce logici 


Aussi rene "INSTALL" un 
choix possible sur Fe multitude d'impri- 


mantes. Ces mini p 
lent des «drivers d’ 


bien souvent, la vôt 
c'est le cas, essayez‘ 
du standard actuel) 


Pour que votre pro 
ble'', évitez d'utilise 
ou mal normalisés, 


du passe-partout. 


ogrammes s'appel- 
mprimantes». Mais, 
e n'y figure pas... Si 
son RX'"' (l'ancêtre 
ou ‘Epson FX", c'est 


ramme soit ‘‘porta- 
les codes Epson peu 
le pire étant ESC In 


qui permet facilement de modifier la 
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taille et la forme des caractères. Ainsi les 
ESC ! de l'Epson FX 80 ne ressemblent 
absolument pas à ceux de l'Epson FX 
800. 

Alors quelle compatibilité peut-on espé- 
rer entre les ESC ! d'une NEC et ceux 
d'une Star ? 


Le cas des imprimantes 
laser 


@ On ne peut utiliser que des feuilles 
coupées. Pas de listings en continu ni de 
liasses auto-carbonées. 

@ Puisque la machine prépare la totalité 
de la page avant impression, celle-ci 
demandera une durée identique, qu'il y 
ait un seul mot ou cinquante lignes en 
petits caractères. On ne parle plus de 
débits en caractères par seconde (cps) 
mais en pages par minute. 

@ Mémoriser le graphisme d'une page 
entière implique beaucoup de mémoire 
RAM, 512 ko minimum en mode texte. 
Pour le graphisme c'est ‘‘nettement"” in- 
suffisant (75x75 points au pouce carré). 
Pour un graphisme aussi fin que sur une 
imprimante à aiguilles, il faut un méga- 
octet. Pour être plus fin, il faut 1,5 à 2 
méga-octets (300x300 points au pouce 
carré). Et la RAM reste toujours aussi 
chère... 

© Pour imprimer à l'italienne, on ne tou- 
che pas au bac de papier, on demande 
que l'écriture laser se fasse dans l'autre 
sens. Ce sont les modes ‘Portrait et 
“Landscape (Paysage). 

®@ Une imprimante laser est très silencieu- 
se. Elle débite plus qu'un modèle rapide à 
aiguilles. La qualité de l'impression est 
très supérieure (traits plus noirs avec 
bords plus nets). 

® Pas question d'envisager une machine 
à plusieurs couleurs, le prix serait mons- 
frueux. 

Il y a des dizaines de fabricants d'impri- 
mantes laser, mais vous remarquerez 
entre elles un certain «air de famille» car 
on y retrouve les mêmes «cœurs» (ensem- 
ble optique + mécanique). Il s'agit prin- 
cipalement des cœurs Canon et Ricoh. 
Avantage pour nous, il y aura moins de 
modèles de ‘toners’ qu'il existe de mo- 
dèles de rubans d'imprimantes ! 


Problèmes spécifiques 
aux imprimantes laser 


Actuellement, il s'agit essentiellement de 
carence de polices de caractères ou de 
“driver” approprié dans tel logiciel. A 
part quelques rares modèles (Memorex) 
qui possèdent une ‘‘émulation Epson FX" 
d'origine et sans bugs, l'obtention de 
caractères autres que le Roman taille 
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normale constitue soit un énorme problè- 
me financier — cfles polices en EPROM 
enfichables —, soit du suspens avec les 
“polices téléchargeables” en RAM. 
Nota : par ‘‘émulation Epson FX", nous 
entendons la compatibilité totale avec 
une imprimante matricielle équipée d'un 
bac à feuilles ; à savoir toutes lestailles et 
formes de caractères et les consignes en 
codes Epson. Il suffit alors de débrancher 
le câble de la matricielle et de le bran- 
cher sur la laser. 

La plupart des imprimantes laser ne se 
configurent pas au moyen de micro- 
interrupteurs mais de menus déroulants 
sur un petit écran LCD. Les choix sont 
conservés en RAM par une batterie inter- 
ne. 

Les “précurseurs”, tels Hewlett-Packard 
avec ses ‘Laser Jet’, tentent d'imposer un 
standard nouveau en ce qui concerne les 
codes de consignes (très complexe !) et le 
nom de polices nouvelles. Elles sont très 
belles et alléchantes mais gare à la factu- 
re de ces options quasi obligatoires. 
Autre ennui classique, la plupart de ces 


machines se réservent des marges de 
sécurité à gauche et droite de la feuille. 
Cela n'apparaît pas en traitement de 
texte, à cause dés marges fixées par le 
logiciel, mais une copie d'écran aura ses 
bords amputés dé quelques caractères. 


Et les imprimantes à jet d'encre ? 


Super silencieusés, ultra rapides, très 
belle qualité d'écriture, elles se configu- 
rent comme une matricielle et leurs prix 
deviennent enfin abordables. 

Il serait donc logique qu'elles supplan- 
tent à terme les modèles à aiguilles, oui 
mais. 


Cette technologie a connu beaucoup de 


problèmes : buses qui se bouchent, en- 
cres qui bavent où qui sèchent trop lente- 
ment, nécessité d'un papier spécial. On 
commence seulement à voir un modèle 
enfin fiable et sans histoires, mais avec 
des lacunes et des bugs dans la ROM. 
Alors attendons encore... 


M. Archambault 


ET Meilleur choix 
el Conpetbles au prx 
VOUS offre... | ner yable « 


200 F les 4 disq ettes 


A : AS EASY AS : aussi facile 
que. Un tableur très puissant, à Ê L 
avec macros, graphismes inté- A7 : LQ : Vous produirez avec 
grés et imprimables depuis cette disquette un texte de 
votre feuille de calcul. haute qualité sur une impri- 
(256 col. 1024 lignes). mante aiguille, avec de multiples 
fontes (appelables aussi par le 
traitement |de texte A6), et un 
A2 : WAMPUM : Un gestion- éditeur d'an-tête pour person- 
naire de fichier avec 2 modes de naliser un logo. Contient un 
fonctionnement : utilisateur et spooler pouvant aller jusqu'à 400 
développeur. Entièrement com- KI 
patible DBASE III, | 
(Config. 512 K. Disque dur). 


MAIS C'EST 
À L'AUTRE 
BOUT b0 

PROGRAMME | 


A3 : ANTI-VIRUS : Une disquette ONDE : La carte du 
contenant tous les programmes 

de détection existant à ce jour 

(Flu-shot, HDSentry, Scan, 

DProtect, etc..). : 


A4 - A5 : LEÇONS LOTUS : 2 
disques pour vous apprendre à 
manipuler lotus, 500 écrans 


on Gomaes as mars des | | défendre a) d'attaquer des pl- 
HS: : ces ennemies, très complexes ; 


applications. Blackjack, atc. C.G.A. 


A6 : PC-WRITE : Le standard 
des traitements de texte, avec A11 : JEUX : Échecs, Pacman 
touche d'aide permanente, dé- où 3D Kon La ë 
placement rapide dans le texte, Û "ab 

marqueur, copieur, fenêtrage 
d'écran, etc... 


C.GA. 


utile de vous décrire ce jeu ? Dragons et 
C.G.A. nécessaire. C.G.A. 


onjons, etc. 


A8 : MONOPOLY : Est-il bien A12 : ar Othello, Flippeur, 


Lotus et D Base 3 sont des marques déposées ® 


Bon de Commande à retourner à : 


COMMUNICATIONS ET TECHNOLOGIES INFORMATIQUES 
Centre Bonlieu - 74000 ANNECY 


Je désire recevoir très rapidement les disquettes suivantes : 
e Ma première sélection de 4 disquettes : 


> = —— -— =200F+16F frais de port 
e Ma seconde sélection de 4 disquettes : 
np "17; =MA00F+10F frais d6 port 
+ Cadeau disquette de DAO 
O] 3, [ 5, 


Code Postal midi À VAL) RSS Re 


ENITTANON 


Ds KRUNDRE 


COMPATIBL 


SON 


IMPRIMANT 


— INITIATION A L’ASSEMBLEUR — 


| Qui n'a jamais eu de problème de configuration d'imprimante, cette dernière 
| ne comprenant pas les caractères IBM ? Sur ce thème, nous allons d'une part 


écrire un petit utilitaire pour transformer n'importe quel caractère à 
| destination de l'imprimante par un autre, d'autre part en profiter pour voir 


| toutes les bases de la programmation en assembleur. 


nstaller une imprimante compatible 
Epson ou IBM sur un compatible PC ne 
pose en général pas de problème, 
mais il y a le cas des imprimantes 
exotiques ou de celles qui diffèrent du 
standard de quelques caractères. 
Le cœur du problème, c'est la codifica- 
tion des caractères. En micro-informatique, 
nous utilisons le code ASCII — ou code 
standard américain pour l'échange d'in- 
formations ; celui-ci définit 128 caractè- 
res pour les liaisons informatiques. 
96 de ces caractères, codés de 32 à 127, 
représentent tous les symboles qu'un 
Américain peut avoir besoin d'afficher 
ou imprimer : les lettres, les chiffres, la 
ponctuation... 
Les 32 premiers caractères, de 0 à 31, les 
caractères de contrôle sont dits non affi- 
chables, ils servent à gérer le dialogue, 


| entre deux installations informatiques. 


Par exemple, le code 13 correspond à la 
| touche Enter ou encore à ‘retour à la 
| ligne", le code 26 signifie ‘fin de fi- 
EPIer 7 

Sur les compatibles IBM, nous utilisons un 


| code ASCII étendu allant de 0 à 255. La 


première partie reprend le code ASCII, et 
à partir de 128 nous trouvons d'autres 
symboles : lettres à accents, caractères 


semi-graphiques pour tracer des cadres, 
symboles mathématiques. 
Là où le bât blesse, c'est que les Améri- 
cains ne se servent pas de lettres accen- 
tuées, et que des imprimantes ont été 
construites avant qu'IBM ne crée le Perso- 
nal Computer. Nous trouvons donc sur le 
marché des imprimantes comportant un 
code ASCII altéré, où des symboles peu 
utilisés — de code inférieurs à 127, 
comme les crochets carrés [ | — ont été 
remplacés par des lettres françaises fe ce 
à,.…). Ces imprimantes peuvent aussi faire 
jouer un rôle totalement différent aux 
codes supérieurs à 128, par exemple 
lettres en italiques ou mosaïque semi- 
graphique. 

Ce que nous allons faire ici, c'est inter- 
cepter tous les caractères à destination 
de l'imprimante, et les remplacer par un 
caractère que l'imprimante comprendra. 


Comment votre PC imprime-t-il ? 


La traduction ne pourra être parfaite :en 
effet, nous ne pouvons remplacer 256 
caractères par 128, mais nous pouvons 
faire une bonne approximation. 

Vous dialoguez avec votre machine par 
l'intermédiaire d'un clavier, d'un écran, 


* 


d'une imprimante, voire d'autres organes 


périphériques. V 
l'autre bout il y a 


ous êtes conscient qu'à 
n programme que vous 


utilisez : traitement de texte, tableur, etc. 
Et entre les deux, que se passe-t-il ? 


Entre les deux, c’ 


est la place du système, 


un ensemble de programmes de base 


destinés à gérer | 
système est co 
d'une part le BI 
d'entrées-sorties 


la machine. Sur un PC, le 
posé de deux parties, 
S ou système de base 
d'autre part le DOS ou 


système d'exploitation du disque. Le 
schéma est le suivant : | 


votre 


| 
| programme | 


| ‘4 | BIiUS 


| 

REZ RUE | 
Fed 
| Matériel || 


vous, 


Ce schéma illust 


L utiiisateur 


re la façon dont le pro- 


grammeur se na du BIOS ou du DOS 


pour dialoguer 
matériel. Toutes 
par un même po 


vec vous au travers du 
les impressions passent 
nt situé dans le BIOS. Il 


suffit donc de es à cet endroit, de 


transformer les 


aractères et de les en- 


voyer à l'ancien programme d'impres- 


sion. 
Pour ce faire, 
consiste donc à 


a meilleure technique 
programmer en assem- 


bleur, ce qui demande un minimum de 
connaissance onde machine. 


Au cœur de l'or 
croprocesseur. 


inateur, se situe le mi- 
our un PC, il s'agit d'un 


8088 et pour un AT, d'un 80286. Quelque 
part en mémoire, ils passent leur temps à 
lire des ordres et le programme, et à les 
exécuter. L'assembleur est le langage de 


CR oil 


programmation le plus près possible de 
la machine : à une instruction assembleur 
correspond un ordre exécutable par le 
microprocesseur. 


Organisation du 8088 


Le 80286 étant un grand frère du 8088, il 
comprend tous les ordres exécutables 
par un 8088. Voyons maintenant comment 
est organisé un 8088. Toutes les informa- 
tions manipulées par un 8088 passent par 
l'intermédiaire de mémoires internes à 
celui-ci : les registres. 

Les registres sont de 16 bits : ils peuvent 
stocker des nombres entre O:et 2'6-1, soit 
65 535. 


De prime abord, nous pourrions considé- 


rer le schéma fonctionnel d'un 8088 


comme étant celui-ci : 


4 registres à usage 
général de lie bits 


CALCULS POSSIBLES 


D — à 


ES : Extra Segment | 


SS : Stack Segment | 


Registres de segments 


rs vs 


F2 re. 


Ce schéma montre plusieurs types de 
registres au cœur d'un 8088. 

— Les quatre premiers registres, dits 
d'usage général, sont consacrés, entre 
autres, au calcul. Leur contenu peut être 
vu comme la juxtaposition de deux demi- 
registres de 8 bits, pouvant donc contenir 
une valeur entre O0 et 255. Le demi- 
registre de gauche est dit de poids fort 
(High en anglais), celui de droite de poids 
faible (Low), d'où leur nom AH et AL, BH 
et BL, pour les demi-registres de AX, 
BX.... 

— Les huit registres 16 bits suivant servent 
à calculer les adresses. En effet, le calcul 
d'une adresse nécessite plus de 16 bits. 
Pour cela, nous utilisons une première 
valeur 16 bits, appelée segment, nous la 
multiplions par 16, et y ajoutons une 
deuxième valeur 16 bits appelée dépla- 


Pa ne ol 
JAX = AM + AL (Er) | 
Bx = EH + BL (8+5) | 
ÜEXx = CH + LL (8+8) | 


Dx = DH + DL (+8) 


SI : Source index || 


| DI : Destin. Inaex Il 


Eee | 
BP : Base Fointer || 


| SF : Stack Fointer Il 


| iF 3 instruction Pt] 


registres déplacements 


cement, et nous notons cela segment : 
déplacement. 

En examinant le nom de ces registres, 
vous devez vous douter qu'ils sont tous 
dédiés à des rôles différents. 

CS:IP permet au microprocesseur de mé- 
moriser où se trouve la prochaine instruc- 
tion à exécuter (pointeur d'instruction 
dans le segment de code, c'est-à-dire de 
programme). 

DS:?? en général l'adressage des don- 
nées se fait avec DS contenant le segment 
de données. 

DS:SI et ES:DI permettent de manipuler 
deux zones de mémoire en parallèle avec 
certaines instructions. L'une de ces zones 
est considérée comme source, l'autre 
comme destination (par exemple pour la 
comparaison de chaînes de caractères, 
ou de zone mémoire). 


= Echanges avec les 
entrées-sorties 
= (peripnériques ) 


Echanges avec la 
mémoire 


Calculs d'adresses 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


SS:SP pointe dans une zone mémoire un 
peu particulière : la pile (stack en an- 
glais). 

Empiler une donnée consiste à la mettre 
en mémoire au bout de cette zone, et à 
déplacer la limite de cette zone (en 
diminuant SP). 

Dépiler une donnée consiste à lire la 
donnée à la limite de la pile et à déplacer 
cette limite en sens inverse. Certaines 
instructions assembleur font cela auto- 
matiquement : PUSH pour l'empilage, et 
POP pour le dépilage. 


Dialogue avec le système 


Jetons à nouveau un coup d'œil à notre 
premier schéma, cela pour attirer l'atten- 
tion sur le fait que lorsque nous voulons 
dialoguer avec le matériel, nous devons 


passer par le système ; cela présente, 
entre autres, l'intérêt de nous éviter 
d'avoir à réécrire |es fonctions de gestion 
du matériel, certainement parmi les plus 
complexes. 
La question est «comment dialogue-t-on 
avec le système ?»| La réponse est «parun | 
jeu d'interruptions/codifiées». Expliquons 
un peu cela. Dans| un ordinateur comme 
le PC, il existe deux types d'interrup- 
tions. 
— D'une part, nobs avons les interrup- 
tions matérielles, résultat d'un organe 
électronique d'entrées-sorties qui envoie 
un signal au microprocesseur, «occupe- | 
toi de moi» en quéelque sorte. Ce signal 
est destiné à signaller une tâche urgente à 
traiter, comme la frappe d'un caractère 
sur le clavier. Le microprocesseur inter- 
rompt alors le programme en cours, sau- 
vegarde son état| dans la pile, et va 
exécuter un petit programme spécial 
pour régler le sort de ce caractère qui 
vient d'arriver. Une fois ce programme 
terminé, le microprocesseur retrouve son 
état antérieur à ilerruption grâce aux 
informations qu'il avait mises dans la 
pile, et Pre de son travail original, là où 
il l'avait laissé. 

ï 


Comme dans un PC plusieurs événements 
différents peuvent |être la cause d'une 
interruption, ceux-di sont identifiés par un 


numéro. 

— Le deuxième pe d'interruption, ce 
sont les interruptions logicielles, c'est- 
à-dire engendrées par programme grâce 
à l'instruction INT n°, où le numéro per- 
met de faire la différence entre plusieurs 
interruptions. Les cdncepteurs du 8088 se 
sont rendu compte que ce pouvait être un 
moyen pratique dé faire exécuter des 
bouts de programnie sans qu'on ait be- 
soin de connaître lebr adresse. 
Tous les appels système (BIOS ou DOS) se 
font par des interruptions logicielles co- 
difiées : c'est en faitlce qui devrait définir 
la compatibilité DOS. Par exemple, la 
majeure partie des appels au DOS se fait 
au travers de l'interruption 33, soit 21h en 
hexadécimal. Auparavant, vous mettez 
un code dans le registre AH pour dire au 
DOS ce que vous vaulez qu'il fasse, vous 
mettez d'éventuelles valeurs dans les au- 
tres registres, vous faites une instruction | 
INT 21h, et vous avez passé la main au 
DOS, au retour vous pouvez trouver des 
réponses du DOS dans certains regis- 
tres. 
1°" exemple : la fonction AH =9 de 
l'interruption 21h pérmet d'afficher une 
chaîne de caractères se terminant par un 
‘$' ; l'adresse de cétte chaîne doit se 
trouver dans les registres DS:DX. Vous en 
avez deux illustrations dans le program- 
me ci-joint, après les commentaires Ter- 
mine le programme. 

2° exemple : l'interruption 20h, avec CS 
ayant la même valeur qu'au démarrage 
du programme permet de terminer l'exé- 


DIM TION 


cution d'un programme et de rendre la 
main à l'interpréteur de commande du 
DOS : COMMAND.COM. Voir l'illustra- 


tion à la fin de notre exemple. ASSUME CoiCode, Dé:Code, ÉS:Code 


Les fonctions BIOS d'impression RG  10üh 


Tout ce qui concerne l'imprimante doit. Instaliie 

asser par l'interruption 23, ou 17h en 
RÉ idéeimet qui s'utilise de la manière 
suivante par un programme voulant com- 
mander une imprimante : 


— Pour toutes les fonctions, mettre dans ; Pour memoriser | adresse de 1 ancienne int 17h 

DX le numéro de l'imprimante concer- Old_17h DD Ô 

née : 0 pour PRN ou LPTI, 1 pour LPT2, 2 

pour LPT3. labie: 
— Mettre dans AH un code permettant de Première partie de la taie ASLIL : noh visualisanie 
savoir ce que nous voulons faire : 0 pour RES 

imprimer le caractère dans AL, 1 pour OO; UIh, 02h, OSh, VAN, OSh, Ven, L7n 

initialiser la liaison avec l'imprimante, 2 OBh, On, UAn, OEh, OCn, UDh, OEn, DFh 

pour connaître l'état de l'imprimante. 10h, 11h, 12h, 13h, 14h, 15h, 16h, 17h 

— Provoquer une interruption 17h grâce 18h, 19h, 14h, 1Bh, 1Ch, 1Dh, 1Eh, AFh 


à l'instruction INT 17h. 

— Après l'exécution de cette tâche, le 
BIOS donne un compte-rendu de l'opéra- ; 
tion dans le registre AH, si le bit 7 de AH 
vaut 1, il y a eu erreur. 

Une part de ces informations est impor- 
tante pour nous, car nous allons écrire un 
petit programme qui va rester résident, et 
LA en installer pour traiter ; Caracteres graphiques IBM (jeu étendu) 
Cette partie du programme se trouve 


; Deuxième partie de la table ASCII : visualisable 
(remarque 27h est le code de 1 apostrophe) 


DB ‘ L'#828& ,27h . 
DB (IX; =7 4 101787, 13m)? 
DB GABCDEFG', HIJKLMNOD', PGRSTUVW ,! © XYZC\IT 
DB ‘‘'abcdetg , Nijkimno , ‘parstuvw ;| xyzti}" , 7Fh 


Fe 


d tré Ho ef Me DB ‘Çuéäaaäc éeéliiAÀ , EæHo FVOUEE#FAT 
ans notre listing, après le commentaire DB ‘aoû BA 0° TT 
Pseudo-programme de service du BIOS. DB LH rare LL a du F 
ï CIE hi 
Dans ce programme, nous n'intervenons DB pr soon: TL UC CRE, open 


que sur les caractères à destination de 
PRN, c'est-à-dire pour DX = 0, et AH = 0. 
Pour les personnes qui ne sont pas fami- 
liarisées avec l'assembleur, nous avons 
joint un glossaire des instructions utili- 


sées. : î , in _ non : donner iä main au BIS 
Si, par contre, il s'agit d'une écriture sur Ecriture ? 
PRN, nous mettons dans DS:BX l'adresse non : donner la main au BIUS 
d'une table permettant de remplacer le j 
caractère contenu dans AL par le carac- ; ; Sauve DS 
tère correspondant dans la table, grâce à 
l'instruction XLAT. Si AL vaut 245, et si le DS = CS. 
245° caractère de la table est 89, AL sera i } Sauve BX 
remplacé par 89. Nous reviendrons sur 
l'usage de cette table lors des directives DS:BX = Adresse de la table 
d'utilisation de notre programme. Rempiace le code dans AL par 
Une fois la substitution effectuée, nous ; celui correspondant de la table 
faisons un saut jusqu'à l'ancienne adresse 
de traitement de l'interruption 17h, le Bx Restitue BX 
module BIOS originel. Ainsi, après la DS Restitue DS 
traduction de caractère, la main est don- 
née au BIOS. ; Fin en donnant ia main au BIÛS 
; DWORD FTR CS:(0ld_17h] 
Installation du programme & | 
: 5 : ; Fin_Res: dernière adresse résidente 
La première instruction exécutable de Lng_Res EUU & — Int_17 longueur résidente 


notre programme est JMP Installe. Cette 
instruction demande de continuer l'exé- | 


“sg _ fre DB 
Msg_Ins DB 


Instaile: 


PrnxLat.lCom déjà en mémoire. 
Instaliation de PrnxLat,.Com. 


Lecture de l ancien vecteur INT 17h 


AL, 17h 

AH, 35h 

Zin 

WORD FPTK tÜld_ 17hi, 


WORD FPTR COla_17n+21, 


Vérifie s1 déjà instalié 


FX 
DI, Bx 
SI OFFSET Int 17 
CXx, ing_Res 
CLD 
REPE CMPSB 
JE Deja La 


# 


Nüméro d interruption 

Code demande adresse traitement 
Appel au DÛS 

Ex ; Sauve | adresse 

ES 


ES:DI = Adr ancienne routine 
DS:SI = Adr de ce programme 
Ex = Faiiie de ce résident 
initialise la comparaison 
compare les deux programmes 


Termine ie programme et reste resident 


OFFSET Msg_ins 
OYN 


i7h 
[FFSET Int_17 
25h 


OFFSET Fin:Res 
4 
LE 


AX ; 
Zin 


8100 


DX, UFFSET Msg Pre 
AH, O9h 
Zin 


20h 


cution du programme à la ligne marquée 
installe :. 

— La première chose à faire, c'est de 
dialoguer avec le DOS au travers de 
l'interruption 21h pour savoir où est trai- 
tée l'interruption 17h. Nous avons besoin 
de cette adresse afin de terminer notre 


. 
Li 
. 
5 
n 
, 


. 
à 
= 
3, 
. 
co 


DS:DX = Adresse du ler Message 
Code d envoi de message 
Appel DÜS 


Numéro d'interruption 

DS:Dx = adresse de notre pgm. 
Code instailation de notre pgm 
Appei DOS 


; DX = Adresse fin du résident 


division par 16 

arronoi à Se1zZalne supérieure 
code +in de pgm reste résident 
donne la main au DÜS 


DS:DX = Adresse du Ze message 
Code d envoi de message 
Appei DUS 


; rin de programme 


programme résident par un saut à cet 
endroit. Avant l'interruption 21h, il nous 
faut mettre dans AH le code 35h, et dans 
AL le numéro de l'interruption en ques- 
tion. Le DOS nous communique cette 
adresse au travers des registres ES et 


BX. 


— Ensuite, il faut vérifier que notre pro- 
gramme n'a pas déjà été installé anté- 
rieurement. Pour céla, il suffit de compa- 
rer le contenu de ld mémoire à l'adresse 
que vient de nous Communiquer le DOS 
avec celui de notré programme en CS : 
mint17h. 
Pour comparer deuk contenus de mémoi- 
re, nous avons deux instructions assem- 
bleur : REPE COMRSB, ou répétition de 
comparaison de chaînes, octet par octet. 
Pour utiliser cette Fsruc tion il nous faut 
d'abord initialiser [DS:SI et ES:DI afin 
qu'ils contiennent les adresses de ces 
deux zones de mémoire. D'autre part, il 
faut dire dans quel| sens à partir de ces 
adresses, il faut faire la comparaison 
(CLD comparaison bar adresse montan- 
te), et finalement, il faut mettre dans CX le À 
nombre d'octets à comparer. 

Si nous nous rendons compte que le 
programme est déjà installé, inutile, 
voire grave de le réinstaller, nous faisons 
un saut à la ligna marquée Dejala :, 
pour afficher un bo en conséquen- 
ce, et pour terminer le programme de 
manière ferme et définitive. 

En revanche, si notre programme n'est 
pas encore installé, nous allons faire les 


deux choses ‘au D 


S d'installer notre 
raiter l'interruption 


— demander au D 
programme pour 


au DOS de nous en 


aisser une partie en 


‘ 
— terminer le Fi en demandant 


mémoire. 


Pour demander au DOS d'installer un 


programme afin de 
tion, nous utilisons | 
avoir mis dans AL le 


raiter une interrup- 
. fonction 25h après 
uméro de l'interrup- 


tion, et dans DS:DX {sa nouvelle adresse 
de traitement. 
Pour terminer un pfogramme et rester 
résident, nous avons fecours à la fonction 
AX = 3100h du DOS. Pour cela, nous 
devons aussi mettre dans DX le nombre 
de paragraphes (par groupé de seize) qui 
doivent rester en mémoire, d'où notre 
petit calcul. 


Réalisation du programme 


Ce qui suit décrit les dpérations destinées 
à ceux qui possèdent Un Assembleur ; que 
les autres se réfèrent à la fin de l'article. 
Bien que nous ne vous l'ayons pas dit, 
notre intention est dé construire un pro- 
gramme de type .COM. Nous avons 
maintenant toutes les instructions pour 
l'écrire, mais il nous [reste encore quel- 
ques détails à préciser à l'assembleur. 

Au démarrage d'un Fate de ce 
type, tous les registres de segment sont à 
la même valeur, cellelde CS. La première 
instruction à exécuter|se trouve à l'adres- 
se 100h dans le segment CS (autrement 
dit IP vaudra 100h), ei aucune instruction 


_ne doit se trouver avant cette adresse. 


Nous donnons à l'assembleur l'ordre de 


DHITIATION 


compter les adresses à partir de 100h 
grâce à la directive ORG 100h. (Une 
directive est un ordre donné à l'assem- 
bleur, par exemple, PAGE, 132 lui de- 
mande de présenter le listing en 132 
colonnes). 


Nous sommes aussi censés décrire à l'as- 
sembleur le contenu des registres de 
segment, pour qu'il puisse faire un certain 
nombre de vérifications. C'est ce que 
nous faisons avec les deux directives 
SEGMENT et ASSUME. 

SEGMENT permet de caractériser un 
segment que nous avons baptisé Code, 


c'est du programme ; ASSUME, lui, si- 
gnale que nous utilisons les registres CS, 
DS et ES, et que le contenu de ces trois 
registres est a priori la même valeur. 
Comme nous avons utilisé une directive 
SEGMENT, nous devons aussi signaler la 
fin de ce segment grâce à la directive 
ENDS. Cette dernière correspondant à la 


e La syntaxe d'une ligne assembleur est la suivante : 
{Symbole} Instruction {Source} {, Destination} {; Commentaires} 


© Types d'instructions utilisées dans PrnXLat.Asm. 


: (exemple Debut:) — Symbole servant à associer un emplace- 
ment dans le programme (un déplacement) à un nom de 
notre invention. Ce nom pourra être utilisé par exemple 
lorsque nous voudrons faire un saut à cette adresse. 

ASSUME — Directive d'assemblage permettant de signaler à 
l'assembleur quel est le contenu des registres de seg- 
ment. Les segments doivent avoir été antérieurement 
définis par une directive SEGMENT. 

CLD — Instruction demandant à ce que les opérations de 
manipulation de chaîne de caractères ou de blocs de 
mémoire se fassent avec des adresses croissantes (voir REPE 
COMPSB). 

DB '@ABCDEFG’ — Define Byte, définition d'octets. Cette 
directive demande à l'assembleur de réserver de la 
place en mémoire à cet endroit pour mettre les octets 
dont la liste suit. Ici, en l'occurrence, les octets sont les 
codes ASCII des symboles @, puis À, puis … 

DB 00h,01h — idem, mais les octets sont définis par leur valeur 
hexadécimale 0, puis 1, … 

Msg__Pre DB ‘Pr..’, ODh, OAh, '$’ — idem, avec utilisation 
des deux possibilités précédentes. De plus, ces octets 
sont précédés d'un nom de notre propre cru qui permet- 
tra d'y faire référence ultérieurement. 

Old_17h DD O0, Define Double word — Définition d'un 
doublé mot, soit 32 bits. Cette instruction demande à 
l'assembleur de réserver quatre octets en mémoire. 
Nous y associons un nom. Quatre octets sont nécessaires 
par exemple pour sauvegarder une adresse. Les deux 
premiers octets contiennent alors le déplacement, et les 
deux suivants le segment. 

END Debut — Directive signalant à l'assembleur que c'est la 
fin du programme, et que la première instruction à 
exécuter est celle de la ligne Debut:. 

Code ENDS — Directive signalant la fin du segment Code 
défini par une directive Code SEGMENT.... 

INC ee Incrément de DX, autrement dit, ajoute 1 au contenu 

e DX. 

INT 21h — Interruption logicielle numéro 21h. (correspond à 
un appel DOS). 

INT 20h — Interruption logicielle numéro 20h. (Fin de pro- 
gramme). JE Deja__ La : Jump on Equal, Saut si Egal. Si le 
résultat de la dernière opération est nul, ou si le résultat 
du dernier test est l'égalité, alors sauter pour aller 
exécuter les instructions marquées par Deja__La:. 

JMP Installe — Saut pour aller exécuter les instructions 
marquées par installe: 

JMP DWORD PTR CS:[O Id__17h — Saut pour aller exécuter 
les instructions dont l'adresse se trouve en mémoire en 
CS:Old__17h. Autrement dit, dans le segment de code 
CS, se trouvent quatre octets qui contiennent l'adresse 
du programme que nous voulons exécuter maintenant. 
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Lng__Res EQU … — Equate, Egale à, nous définissons un 
symbole et sa valeur est la EL 

Lng__Res EQU $ - Int__17 — $ représente l'adresse à laquelle 
nous sommes en train d'assembler,le résultat de l'opéra- 
tion $-Int__17 est donc le nombre d'octets compris 
entre l'emplacement de Int__17: et l'emplacement ac- 
tuel. 

MOV — Move, déplacement d'informations, le premier élé- 
ment qui suit le MOV dit où va la donnée, le deuxième, 
d'où elle vient. | 

MOV WORD PTR [| O Id_17h], BX — Met en mémoire à 
l'adresse DS:Old__17h le mot contenu par le registre 
BX. | 

MOV AH, 35h — Met dans le registre AH la valeur hexadéci- 
male 35h. | 

MOV DX, OFFSET Msg__Pre — Met dans le registre DX le 
déplacement (offset) correspondant à Msg__ Pre. Ce 
dernier est un symbole que nous! avons défini avec un 
DB. | 

MOV CX, Lng__Res — Met dans DX| la valeur Lng__Res, 
celle-ci a été calculée par un EQU. 

MOV DI, BX — Met dans le registre DI, le contenu du registre 
BX | 


OR CX, DX — Fait un OÙ logique entre CX et DX. Pour faire un 
OÙ entre deux valeurs, on regarde ces valeurs bit à bit, 
et si l'un des deux bits est à 1, on reporte 1 dans le 
résultat. Exemple : | 

1100 1010 | 

ou 01010110 | 

= 11011110 | 
OR DX,DX ne va pas changer le contenu de DX mais 
permet de tester si celui-ci est nul. Nous aurions pu écrire 
CMP DX,0, autrement dit, compare le contenu de DX 
avec 0, il s'agit là d'une vieille habitude de program- 
meur (il y a aussi une autre raison : le programme sera 

moins long d'un octet). | 

ORG 100h — Directive d'assemblage signifiant que le dépla- 
cement qui suit vaut 100h. | 

PAGE ,132 — Directive d'assemblage pour présenter le listing 
sur 132 colonnes. | 

POP DS — Dépile le contenu de DS. 

PUSH DS — Empile le contenu de DS. 

REPE CMPSB — Compare deux zones de mémoire pointées 
par DS:SI et ES:DI, voyez l'article! 

Code SEGMENT ‘CODE — Définition du segment de code : 
nous lui donnons le nom Code, et il correspond au 
segment de code, c'est-à-dire au programme. 

SHR DX, CL — Décalage de CL bits du registre DX sur la droite. 
Exemple CL = 2 : | 
avant le décalage DX = 1110 0101 01100111 
après le décalage DX = 0011 1001 0101 1001 
Notez qu'un décalage de 1 bit à droite est l'équivalent 
d'une division par 2 (c'est de PE ge binaire). 

XLAT — Traduction (Translate), DS:BX contient l'adresse d'une 
table, et AL le caractère à traduire, voyez l'article. 


DEBUG : CRÉER LE PROGRAMME SANS ASSEMBLEUR 


C>DEBUG 
-A 100 
291E:0100 
291E:0103 
_291E:0107 
291E:0117 
291E:0127 
291E:012F 
291E:0147 
291E:0167 
291E:0187 
291E:0197 
291E:014A7 
291E:01C7 
291E:01E7 
291E:0207 
-A 207 
291E:0207 
291E:0209 
291E:020B 
291E:020D 
291E:020F 
291E:0210 
291E:0211 
291E:0212 
291E:0213 
291E:0216 
291E:0217 
291E:0218 
291E:0219 
291E:021A 
291E:021E 
291E:023D 
291E:025C 
291E:025E 
291E:0260 
291E:0262 
291E:0266 
291E:026A 
291E:026C 
291E:026F 
291E:0272 
291E:0273 
291E:0274 
291E:0275 
291E:0277 
291E:027A 
291E:027C 
. 291E:027E 
291E:0280 
291E:0283 
291E:0285 
291E:0287 
291E:028A 
291E:028C 
291E:028E 
291E:028F 
291E:0292 
291E:0294 
291E:0297 
291E:0299 
291E:029B 
291E:029D 


JMP 025C 
DW 0,0 


DB 00,01,02,03,04,05,06,07,08,09,0A,0B,0C,0D,0E,0F 
DB 10,11,12,13,14,15,16,17,18,19,1A,1B,1C,;1D,1E,1F 


DB * !Y#S24",27 


DB FOIRE SE 7/7; 
*HIJKLMNO', 
’hijkimno’, 


DB ?’@ABCDEFG’, 
DB ’‘abcdefg’, 


109:5<=>7 
CAVZINTE ZE" 
Le À 4 STD 2 Nr à 


*01234567, 
?PQRSTUVW'’, 
‘parstuvw’, 


DB 80,81,82,83,84,85,86,87,88,89,8A,8B,8C,8D,8E,8F 
DB 90,91,92,93,94,95,96,97,98,99,9A,9B,9C,9D,9E,9F 


DB ’âiéuñNñao’, 
DB ‘rt ++f", 
DB aBiEGu ! 


OR DX;,DX 
JNZ 0219 

OR AH, AH 
JNZ 0219 
PUSH DS 
PUSH CS 

POP DS 

PUSH BX 

MOV BX,0107 


JMP FAR [0103] 


DB ‘’PrnXLat.Com déjà en mémoire.’, OD, OA, ? 
DB ‘Installation de PrnXLat.Com.’, OD, ; 


MOV AL,17 

MOV AH,35 

INT 21 
[0103],BX 
[0105],ES 
MOV DI,BX 

MOV SI,0207 
MOV CX,0017 


-N PrnXLat.Com 


—RCX 
CX 0000 
:19D 


= 


019D octets écrits 


-Q 
C>PrnXLat 


'érkmi®”, 


» | LL, 
’& ny Lys: Le 


“LULU 
mit He FF 


Après le listing de notre programme 
PrnXlat.Asm, nous avons donné un 
listing permettant de créer le 
programme grâce à DEBUG. 

En effet, DEBUG, livré avec le DOS 
possède une commande pour 
assembler directement en mémoire. 
Pour cela, derrière l'indicatif du 
DOS, A>, B> ou C>, tapez DEBUG. 
Celui-ci répond par un petit tiret. 
Tapez alors À pour assembler, 
DEBUG répond par une adresse 


A la fin de ce listing, la commande N 
sert à signaler à DEBUG le nom du 
fichier que vous voulez créer. Nous 
modifions alors le contenu du registre 
CX pour indiquer la taille du fichier, 
avant de lancer la commande W 
pour écrire ce que nous venons 
d'assembler sur le disque. Comme les 
256 premiers octets, 100h, ne sont 


fin du programme, nous lui faisons suivre 
une autre directive END qui non seule- 
ment signale la fin du programme à 
l'assembleur, mais len plus nous permet 
de lui dire où sel trouve la première 
instruction de ce programme. Comme 
nous faisons un programme de type 
.COM, nous devons obligatoirement 
faire référence à lal première instruction 
qui suit la directive ORG 100h. 

Avec ce que nous| venons de voir, la 
structure d'un programme .COM est tou- 
jours similaire à celle du programme 
trivial suivant : 


C: \ASM>TYPE TRIVIAL.RSI 


Code SEGMENT PARA PUBLIC ‘CODE 
ASSUME CS:Code, DS:Code, ES:Code 
ORG 100 

Debut ;| Début du programme 
INT 20n 

Code ENDS 
END Deblit 

C: \ASM> 


Maintenant que nobs avons écrit notre 
programme, il ne nqus reste plus qu'à le 
faire réaliser par Na machine. Cela se 
passe en plusieurs étapes : 

— d'abord l'assemblage qui nous fournit 
un programme TRIVIAL.OB)] ; A 

— la deuxième étapé est l'édition de lien, 
elle nous permet de|regrouper plusieurs 
programmes OBJ où de leur ajouter des 
fonctions écrites dahs des librairies, le 
résultat de ce travail est un module EXE. 
Si nous avions écrif notre programme 
pour qu'il puisse être de type EXE nous 


pas écrits sur le disque, la longueur à 
mettre dans CX est ld dernière 
adresse d'assemblage diminuée de 
100h. 


: Vous pouvez modifiet notre table de 


traduction conformément à ce que 
nous avons vu avec l'Utilisation de 
l'assembleur, mais vous pourrez aussi 
le modifier après coup de la manière 
suivante : chargez le brogramme 


avec la commande E. 

Cette table commence à l'adresse 
0107. Supposons que vous vouliez 
modifier le code 7Bh.|I| vous faudra 
éditer le code à l'adrésse 107h+7Bh 
soit 182h, vous tapez alors E 182, puis 
vous donnez ia nouvelle valeur 


hexadécimale à mettre dans la table. 
Pour terminer, vous faites un W pour 
mettre à jour le fichier. 


TYPE DE MACHINE 


EDUC-MATERNELLE-1 
EDUC-MATERNELLE- | 
LECTURE-CP 
MATHS-CE 
MATHS-CM 
CALCUL-RAPIDE 
EDUC-PRIMAIRE 
FRANCAIS-SONS 
ORTHO-CM 
FRANCAIS-CM 
GEOGRAPHIE-PRIMAIRE 
GUILLOTINE 
GRAMMAIRE-65 
MATHS-6 

MATHS-5 

MATHS-54 

MATHS-4 

MATHS-3 

MATHS-2 

MATHS-1 

MATHS 2ND CYCLE-1 
MATHS 2ND CYCLE-2 
GEOMETRIE 
HISTOIRE-PRIMAIRE 
ANGECATS-43 


REVOLUTION-89 


16, Rue des Fossés 


35000 RENNES 
TEL 99.63.71.11 


P 
5" 1/4 


PC 
3"1/2 


D [ND 
RIRIR 
01010 


REMISE 10% POUR 3 LOGICIELS ET PLUS 


ST 


EX 
Le) 


ÉEDOREË 


LHTITATIION 


| aurions pu nous arrêter là, nous aurions 


un module exécutable. Nous avons pré- 


_| féré faire un module COM pour plusieurs 


bonnes raisons, l'une d'entre elles étant 
qu'ils sont plus simples à écrire. Nous 


C:\ASM >>> masm Îriviai; 
Microsoft (R) Macro Âssemblier 


49864 Bytes symboi space tree 


Ÿ Warning Errors 
0 Severe EÉrrors 


C:\ASM >>> link Trivial; 


Microsott (R) 8086 ÜbjJect Linker 


Warning: no stack segment 


C:\ASM >>> exeZbin frivial.exe frivial.com 


5: \ASM >>) del Trivial.exe 


:\ASM >>> Trivial 


LC: \ASM >>> 


Utilisation du programme 


Le programme PrnXlat.Asm dont vous 
avez le listing n'est en fait pas du tout 
paramétré pour votre imprimante. En 
effet, nous ne connaissons pas a priori 
votre imprimante. 

La première chose à faire consiste donc à 
corriger la table en conséquence, et pour 
cela vous devez savoir quel code imprime 
quel symbole. Cela doit normalement se 


_EXE2BIN. 


Version 4.00 
Copyright (C) Microsoft Corp 1981, 1985, 1984, 1985! 


Version 5.05 
Copyright (C) Microsoft Corp 1985, 1984, 1985. 


devons donc transformer ce programme | 
EXE en COM grâce à l'utilitaire du DOS M 


Au passage, lofs de l'édition de lien, LINK 
va et doit nous sortir un message : War- 
ning, no stack segment. C'est normal, 
cela vient du fait que nous faisons un 
module COM. 


La procédure est la suivante : 


All rights reserved. 


All rights reserved. 


123 ou 7Bh. Cela veut 
dire deux choses : d'une part lorsque 
vous voulez imprimer un é il faut envoyer 
123 ou 7Bh à l'imprimante, d'autre part, 
l'accolade ne doit probablement pas 
être définie, il lui faudra certainement un 
caractère de substitution (par exemple 
une parenthèse)! 
Pour remplacer|le code du é dans notre 
table, vous allez procéder de la manière 
suivante : : 


voyant un Jen 


; Laractères grapniques IBM (Jeu étendu 


DB 
DE 


Cu," Van 
aaaaç , 


trouver dans le manuel de votre impri- 
monte. Si toutefois vous avez des doutes, 
ou si vous n'êtes pas sûr de la configura- 
tion de votre imprimante, vous pouvez 
toujours avoir recours au petit program- 
me Basic ci-dessous qui imprimera tous 
les caractères possibles avec leur code : 


FOR 1 = 32 TO 255 : LPRINT I, HEXS{(I), 
CHR$(I) : NEXT | 


Maintenant, il vous faut analyser la liste 
obtenue en comparaison avec les codes 
ASCII étendus par IBM. Par exemple, vous 
allez vous rendre compte que le 6 accent 
aigu, codé 130 ou 82h par IBM, est én fait 
obtenu sur votre imprimante en lui en- 


eEÈèl11AA ; É&MOoOOQUU ,  YOUFÉFAT 
Nous avons également changé les a ac- 
cents graves qui le suivaient en a. 

Une fois le source du code modifié en 
conséquence, vous préparez le program- 
me comme nous l'avons vu au paragra- 
phe précédent (en remplaçant le mot 
Trivial par PrnXLat), puis vous tapez la 
commande PrnXLat. Vous devez obtenir 
le message d'installation, puis toutes les 
impressions qui suivent doivent être corri- 
gées comme vous l'avez fait. 

La balle est maintenant dans votre camp... 


aux 


ÉRSTE 


LES FICHIERS EN ACCES 


DIRECT 


Le Basic peut exploiter un fichier énorme, des centaines de kilo 
octets, et ce par le biais de “l'accès direct”. Cela sous-entend qu'il 
reste sur disque et que l'on ne charge en RAM que l'enregistrement (la 
"fiche") dont on a besoin ; il suffit d'en connaître le numéro. 


Idem pour la mise à jour d'une fiche ; 
seule celle-ci est re-écrite, et à l'emplace- 
ment même de l'ancienne. Le terme 
“accès direct" est donc bien justifié. Il 
n'est plus nécessaire de re-enregistrer 
tout le fichier comme c'est le cas avec les 
“fichiers séquentiels”. En prime et à titre 
d'exemple concret, nous vous livrons un 
programme de gestion de fichiers qu'il 
vous sera très facile d'adapter à vos 
besoins 


Comparaison avec les fichiers 
séquentiels. 


Généralement un fichier séquentiel sert à 
garnir un ou plusieurs tableaux DIM ; on 
est donc limité par la RAM disponible qui 
en Basic ne dépasse pas 60 kilo octets. 
En pratique le recours à l'accès direct est 
recommandé quand le fichier dépasse 20 
ko environ (plus si le programme est com- 
pilé). - Rechercher une valeur dans un 
tableau DIM est ultra rapide, la recherche 
d'une valeur dans un fichier sur disque 
l'est beaucoup moins, à cause des 
"temps d'accès" dûs à la mécanique des 
bras de lecture. Pour cette raison le 
disque dur est ici préférable au lecteur de 
disquettes. - Le risque de “garbage" 
(saturation de la RAM) par le renouvelle- 
ment des variables chaînes devient négli- 
geable en accès direct. - Tout est calibré 
à l'avance : on a fixé une longueur pour 
chaque "champ" (rubrique de la fiche). Si 
la valeur est courte elle sera complétée 
par des espaces, si elle est trop longue le 
Basic la tronquera sans préavis. C'est du 
rigoureux ! - Le fichier sur disque est 
monobloc ; un seul enregistrement mais 
pouvant faire des centaines de kilo octets. 


Tout y est écrit à la queue leu leu, sans le. 


moindre retour ligne ou signe de sépara- 
tion. Quand sous DOS on fait un TYPE sur 
un de ces fichiers celà peut paraître 
"pagaille"! Erreur ! c'est en fait super 
ordonné : On a indiqué la longueur LEN 
d'une fiche (le pas en octets), donc si on 
demande de lire ou écrire la fiche numéro 


832 le bras saura aller directement des- 
sus. - Une telle technique peut déboucher 
sur des applications n'ayant aucun rap- 
port avec la gestion de fichiers, comme 
l'exploitation par Basic de fichiers même 
binaires issus de certains logiciels, et ce 
afin de les "bidouiller” à notre guise. On en 
parlera en annexe... 


Ouverture d'un fichier en accès 
direct. 


Prenons un exemple très simple. Trois 
“champs”, hom, prénom et date de nais- 
sance. |! faut tout d'abord fixer la longueur 
de chaque champ. Cette instruction 
FIELD est obligatoire. Disons nom=20, 
prénom=15 et date=6 (en format AAMM- 
JJ, 590304 pour le 4 mars 1959). Donc 
une fiche aura pour longueur 
LEN=20+15+6 = 41 Cette "réservation" 
est fixe et définitive. Si prénom = Paul il 
sera donc suivi par 11 espaces (ou 
blancs") pour le compléter à 15. 
Gaspillage d'octets ? Certes, mais uni- 
quement sur la disquette de 360 ko ou 
sur le disque dur. 


OPEN "CLUB" AS #1 LEN=41 


Deux remarques : Plus de "FOR INPUT" 
ou “FOR OUTPUT" ou “FOR APPEND", 


c'est ouvert à la fois en entrée et en sortie. : 


On peut spécifier "FOR RANDOM" mais 
ce n'est pas obligatoire. En informatique 
le mot fiche est incorrect, il faut dire "enre- 
gistrement". Je conserverai "fiche" pour 
être plus clair. 

À présent définissons les “segments 
champs” : (= longueurs et noms des 
‘rubriques") 

FIELD #1,20 AS NOM$, 15 AS PRENS, 

6 AS DATS 

Un sage conseil : Ces 3 variables chaînes 
définies dans notre FIELD ont un statut 


assez privilégié, car elles ont désormais 
une zone réservée dans la mémoire RAM. 


N'utilisez plus ces noms ailleurs pour 
d'autres choses. Aucun risque de “garba- 
ge” ; ce sont des "variables FIELD", la 
haute noblesse... ; 


Lecture et écriture d'une fiche. 


Pour lire c'est GET (= prendre), pour écri- 
re c'est PUT (= mettre, poser). Lisons la 
fiche N° 63 


GET #1,63 :' prend dans le 
fichier ouvert en #1 la fiche 63 


Que fait le PC ? Au départ du fichier 
"CLUB" il "saute" 62 fois 41 octets, et lit 
seulement les 41 suivants en les reco- 
piant dans les cases mémoires définies 
par FIELD : les 20 premiers dans NOMS, 
les 15 suivants dans PRENS et les 6 der- 
niers dans DAT$. A présent nous pouvons 
afficher 


PRINT NOM$ --> ANGREVE : PRINT 
PRENS$S --> Mélusine : PRINT DATS -- 
> 670401 


Modifions DAT$ et sauvegardons cette 
mise à jour de fiche. 


INPUT "Date de naissance AAMMJJ 
",D$ LSET DAT$S=D$ PUT #1,63 


Expliquons : - Pour l'INPUT on prend un 
autre nom de variable, D$ - LSET vient de 
LEFT SET = “le contenu de DAT$ en par- 
tant de la gauche est D$* - PUT re-écrit 
toute la fiche N°63. Vous remarquez qu'il 
n'y aura plus de sous-programme pour la 
sauvegarde. 


Il existe aussi RSET (RIGHT SET = à partir 
de la droite) mais d'un usage moins cou- 
rant. 


INPUT ‘Date ",DAT$ serait une faute 
grave mais sans message d'erreur : la 
"noble variable FIELD" DAT$ ne serait 
alors ni concernée ni modifiée ! Seuls 
GET, LSET et RSET peuvent modifier le 
contenu d'une variable FIELD. Il faudra 
bien s'en souvenir... 


RESUMONS : Les fichiers en accès 
direct disposent de six commandes 


ERENS 

Basic, à savoir LEN, FIELD, GET, PUT, 
LSET et RSET. (prononcez lène, filde, 
guette, poute, elsette et ersette). Plus cer- 
taines concernant les variables FIELD 
_| numériques d'un usage assez délicat ; 
| pour débuter entrez les nombres sous 
_ | forme de chaînes. Ne pas confondre GET 
_| et PUT avec leurs homonymes des com- 
mandes graphiques ni la commande LEN 
_| avec la fonction LEN(AS).. (rappel, une 
| commande est théoriquement destinée 
| au système d'exploitation, une instruction 
| ordonne, modifie quelque chose, une 
fonction retourne une valeur et une décla- 
| ration ne fait que renseigner). 


Quelques remarques. 


À - La numérotation des fiches ne com- 


. mence pas à zéro mais à UN ; PUT (ou 
| GET) #1,0 = plantage. 


B - La taille en octets d'un fichier en 
accès direct est exactement un multiple 
de LEN, ce qui permet d'en connaître le 
nombre de “fiches”. NF=LOF(1)/41: ‘ 
nombre de fiches PRINT ‘Le fichier du 
CLUB a"; NF:'adhérents" 


LOF (1) = "LENGTH OF FILE", lon- 


_ | queur du fichier ouvert en #1 


| C - Ne vous étonnez pas si chaque PUT 

| ne provoque pas toujours une mise en 

__ | route du drive. En effet le micro attend 

| qu'il y ait au moins 512 octets à écrire (= 1 

| secteur de disque) ; toutefois il écrira ces 

| 41 octets si c'est la fin, due à un CLOSE 
_| #1 ou END ou RUN. 


| D - On ne peut pas supprimer une fiche, 


_ | on peut seulement la mettre "à blanc”, 


| quitte à ré-utiliser ce numéro de fiche plus 
_ |tard. 


. - E - Pour changer l'ordre des fiches il fau- 
| drait créer un autre fichier, "CLUB2’ ouvert 


. en #2, le remplir dans l'ordre souhaité, 
effacer "CLUB" (par KILL CLUB") et enfin 


renommer "CLUB?" en "CLUB" par NAME 


| "CLUB2" AS "CLUB". 


. | La grande bêtise (hélas classique) 


| Nous avions fait un GET sur la fiche N° 63, 


donc les trois variables FIELD sont "gar- 
nies de valeurs fraîches". On a modifié 


. _ | DAT$etona sauvegardé par PUT la fiche 
| de Mlle ANGREVE ; ça c'est OK. 


| À présent on veut faire la même modifica- 
| tion mais sur la fiche de Mr BAVE Jean qui 

_| a le numéro 185. "Pas la peine de faire un 
_ | GET, je suis sûr du numéro !”, se dit le gaf- 


feur, alors INPUT DS$ ; LSET DAT$=D$ et 
PUT #1,185. Et voila la grosse bourde est 
faite : En effet en l'absence d'un GET ou 
de LSET les autres variables NOMS et 
PRENS contiennent toujours ANGREVE et 
Mélusine... et ce PUT va copier ces 
valeurs dans l'enregistrement N° 185 ! 
Donc ANGREVE sera en double en numé- 
ros 63 et 185 (avec des DATS$ différents) 
et le pauvre Mr BAVE aura été effacé du 
fichier ! 


D'où cette grande règle de sécurité : 


En modifications de fiches, il faut toujours 
programmer un GET avant de faire un 
PUT. 


Souvenez-vous que PUT prépare son 
tronçon de longueur LEN en mettant bout- 
à-bout les contenus actuels des “variables 
FIELD", puis il re-écrit toute la fiche sur le 
disque à l'emplacement exact de l'ancien- 
ne version. Donc cette dernière n'est plus 
récupérable en cas d'erreur. En accès 
direct il est prudent d'avoir un duplicata 
du fichier. En fin de programme program- 
mez SHELL “COPY CLUB CLUB.BAK". On 
ne sait jamais. 


La pratique du field. 


La commande FIELD fait démarrer le 
"tronçonnage" au début de la longueur 
définie par LEN. Cela vous paraît évident, 
mais cela implique en fait que toutes les 
déclarations de champs doivent être sur 
une ligne unique commençant par "FIELD" 
! Or une ligne Basic ne peut excéder 255 
caractères. Et si l'on a une quarantaine 
de champs ?... Il faut ruser : 


- Quand la première ligne FIELD est "plei- 
ne” on:en crée une deuxième qui va com- 
mencer par un “champ talon”, bidon, dont 
la longueur sera égale à la somme des 
champs déjà définis. Un exemple 


Soit sept champs C1$ à C7$, chacun de 
longueur dix caractères. Pour être plus 
clair nos lignes sont très courtes. 


810 OPEN "TRUC" AS #2 LEN=70 820 
FIELD #2,10 AS C1$,10 AS C2$,10 AS 
C3$ 830 FIELD #2,30 AS X1$,10 AS 
C4$,10 AS C5$ 840 FIELD #2,50 AS 
X2$,10 AS C6$,10 AS C7$ 


Ligne 820 on totalise 30 octets (C1$ à 
C3$). Ligne 830 on redémarre à zéro mais 
avec un talon X1$ de 30, on poursuit alors 
le tronçonnage avec C4$ et C5$ ; ce qui 
nous amène à 50 octets. Ligne 840 nou- 
veau départ à zéro, mais avec un talon 
X2$ de 50, etc... 


Pour la suite de l'exploitation du fichier on 
ignorera l'existence de ces champs talons 
: Nos LSET ne concernerons que les 
variables C1$ à C7$, et tout se passera 
sans le moindre ennui. Garanti. On peut 
même ajouter ceci : 


850 FIELD #2,70 AS TOTALS 


Ce “champ global" sera utile pour vider 
d'un seul coup le contenu de toute une 
fiche, par exemple la N° 127 : 


LSET TOTAL$="":PUT #2,127 


Remarquez que nos lignes de FIELD sui- 
vent une progression logique de "gauche 
à droite" dans la fiche, et que TOTALS$ a 
de ce fait été déclaré en dernier. Faites de 
même et vous n'aurez jamais de chocs en 
retour. 


Cas des champs nombreux. 


Lorsque les champs sont nombreux on 
choisit en fait des noms de variables 
FIELD indicées ; mais n'oubliez pas de les 
déclarer en DIM. Un exemple avec 48 
champs : 100 DIM R$(48),LR(48) LR = 
longueurs respectives (entrées en lignes 
de DATA) 


250 LT=0:RESTORE 210:FOR I=1 TO 
48:READ LR(I) : LT=LT+LR(I) :NEXT 


La programmation des FIELD sera simple 
et courte en utilisant une boucle FOR 
NEXT et des “champs talons" X$. 


3010 OPEN "MACHIN" AS #1 LEN=LT 
3020 FIELD #1,LR(1) AS 

R$ (1) : TT=LR(1) :X=1 3030 FOR J=2 TO 
40 3040 FIELD #1,TT AS X$ (X),LR(J) 
AS R$ (J) : TT=TT+LR (J) :X=X+1 3050. 
NEXT 3060 FIELD #1,LT AS TOTALS:' 
facultatif 


Saisie de nouvelles fiches. 


C'est ultra simple. Nous avons vu com- 
ment connaître le nombre de fiches NF 
sitôt après l'OPEN. 


6310 LINE INPUT "Nom : ",N$S:IF 
N$="Q" THEN 6360 6320 LSET NOMS=NS 
6330 LINE INPUT "Prénom : 
“,P$:LSET PRENS=PS 6340 INPUT 
“Date en AAMMJJ : “,D$:LSET 
DATS$=D$S 6350 PUT 
#1,NF+1:NF=NF+1:GOTO 6310 6360 


CLOSE #1 (ou RETURN vers le menu 
principal) 


Face à la technique des fichiers “séquen- 
tiels”, constatez ici la simplicité de ces 
quelques lignes qui assurent la saisie, le 
calibrage en longueur maxi, le comptage 
et la SAUVEGARDE PERMANENTE et 
AUTOMATIQUE. 


Recherche d'une fiche. 


Alors ça c'est nettement moins drôle ! En 
effet pour "sortir" une fiche il faut connaître 
son numéro. La solution la plus simple 
consiste à faire des GET de 1 à NF jus- 
qu'à trouver la concordance. C'est ce que 
nous faisons dans notre programme 
exemple FICHDIR ; mais ce serait long si 
le fichier était énorme, à cause de tous 
ces accès disque. On peut accélérer 
cela. 


Reprenons notre fichier "TRUC" avec ses 
variables C1$ à C7$. Déterminons quel 
est le CHAMP CLEF pour la recherche de 
fiches. Choisissons C3$ et mettons ces 
valeurs en tableau DIM 


DIM CLES (NF) FOR N=1 TO NF:GET 
#2,N:CLES (N)=C3$ :NEXT 


Cela va prendre quelques secondes mais 
on ne le fait qu'une fois au début. 
Maintenant les recherches de fiches : 


410 LINE INPUT "Mot : 
N=1 TO NF 430 IF 

INSTR (CLES$ (N) ,M$) <>1 THEN 460 440 
GET #2,N:PRINT C1$, C2$, C3$, Ca, 
C5$, C6$, c7$ 450 N=NF 
des recherches 460 NEXT 


",M$ 420 FOR 


:" arrêt 


Et c'est de l'ultra rapide ; disons une 
seconde pour explorer 500 fiches ! Ce 
INSTR de la ligne 430 surprend un peu : 
Pourquoi pas IF CLES(N)<>M$ ? Parce 
que les mots dans CLES$(N) sont "complé- 
tés” par des blancs, ils proviennent de 
variables FIELD... 


Recours au disque virtuel. 


Si vous n'avez pas de disque dur vous 
allez être pénalisé par la lenteur (relative) 
du lecteur de disquettes : La méthode 
intermédiaire consiste à créer un DISQUE 
VIRTUEL C: en mémoire RAM dans lequel 
sera copié le gros fichier, et les GET de 1 
à NF seront alors ultra rapides puisqu'il y 
a plus d'inertie mécanique. L'ennui est 
que ce disque RAM ne peut être créé que 
par le CONFIG.SYS lors du boutage ; 


exemple pour obtenir 256 Ko (syntaxe du 
DOS AMSTRAD) insérer DEVICE=RAM- 
DRIVE .SYS 256 L'AUTOEXEC de votre 
disquette deviendra alors COPY 
A:TRUCFIC C: (copie en disque virtuel 
C:) GWBasic PROG.BAS (mettra à jour 
C:TRUC.FIC) COPY C:TRUC.FIC A: 
(après sortie du Basic par SYSTEM) DEL 
C:TRUCFIC 


A noter qu'un PC ne possédant qu'un seul 
drive est suffisant ! 


Tris de fichiers. 


Vous conserverez les méthodes de tris sur 
tableaux DIM dont vous avez l'habitude, 
mais ici c'est bien plus simple. Soit à per- 
muter les fiches N et N+1 : 

GET #1,N:A$=TOTALS:GET #1,N+1 : 

N mis en A$, N+1 en TOTALS PUT 
#1,N : ‘ fiche N+1 en N LSET 
TOTALS$=AS$S :PUT #1,N+1 : ‘ fiche N 
en N+1 


Remarquez que grâce à la variable globa- 
le TOTALS il n'est plus nécessaire de pro- 
grammer un FOR NEXT pour les contenus 
des diverses rubriques de chaque fiche. 


Le programme type. (FICHDIR.BAS) 


‘C'est un logiciel de gestion de fichier en 


accès direct assez spécial car il n'a pas 
l'option "création". Un genre cher à l'auteur 
où tout est déclaré dans le listing même, 
et sur quelques lignes seulement : En les 
modifiant on crée une autre application. 
En somme des “couples” programme- 
fichier. 


En outre ce petit programme est conçu en 
"structuré", c'est à dire que vous pourrez 
très facilement le compléter, le gadgétiser 
à loisir. Il n'y a que les fonctions et sécuri- 
tés vraiment essentielles, obligatoires. En 
somme c'est un "KIT de base” solide mais 
encore petit. 


Tout au long du listing, bourré de REM, 
vous reconnaîtrez les techniques décrites 
dans cet article, plus bien d'autres dont 
nous avons déjà parlé dans des numéros 
précédents de “Compatibles PC 
Magazine”. 


Les détails du listing : - tout est en “struc- 
turé" c'est à dire en petits modules appe- 
lés par des GOSUB. D'où une grande 
souplesse pour les modifications ulté- 
rieures. C'est compilable avec TURBO 
Basic. - les noms de variables commen- 


çant par F sont des ‘flags”, des témoins 
ou mouchards. Ils valent O ou 1 - Lignes 
1000-1050 : c'est le menu-carrefour. Pas 
d'option "chargement", le fichier est déjà 
ouvert et son nombre de fiches apparait à 
l'écran. - Ligne 5050 : le contenu de la 
fiche à effacer est affiché pour accord. 
Une sécurité pour étourdis. - Ligne 5060 : 
avantage de cette variable FIELD TOTALS$ 
qui permet de mettre à blanc une fiche 
d'un seul coup. - Ligne 22030 : le fait de 
répondre "Q" sur le premier champ pro- 
voque l'abandon de la saisie ou de la 
modification. (pas de PUT final) - Ligne 
22070 : en fin de saisie on demande l'ac- 
cord pour valider la fiche, car elle sera 
aussitôt sauvegardée. - Ligne 30040 : la 
variable talon X$ est sans cesse redéfinie 
en FIELD dans cette boucle FOR NEXT. 
Cela peut paraître lourd mais le nombre 
de champs NRU peut alors être quel- 
conque. - Les sous-programmes utilitaires 
49000, 50000 et 51000 sont déjà de 
vieilles connaissances : affichage et ges- 
tion de menus ou de réponses. A noter 
que les noms de champs (ligne 310) et 
les noms des options du menu principal 
(ligne 1020) doivent présenter des lettres 
initiales différentes. 


Mutation SEQUENTIEL-ACCES 
DIRECT. 


Vous exploitez peut-être un fichier “en 
séquentiel" qui une fois chargé en DIM est 
devenu à présent fort encombrant. Bref le 
blocage est pour la prochaine saisie. 
Vous voudriez le gérer par notre program- 
me mais vous ne voulez pas retaper tout 
le fichier ! Comme je vous comprends... 


Rassurez-vous, rien de plus simple que 
de transformer votre fichier séquentiel en 
accès direct : 


1 - modifier les lignes de *ACCEDIR* 
comme si le fichier existait déjà (sous un 
autre nom que l'actuel) 

2 - créez cette ligne provisoire 


909 GOSUB 40000 :END 
3 - insérez ce sous programme en 40000, 
lui aussi provisoire. 


40000 " copie de séquentiel en 
accès direct 40010 OPEN "ACTUEL" 
FOR INPUT AS #2:N=0 40020 WHILE 
NOT EOF(1):N=N+1 40030 FOR R=1 TO 
NRU 40040 LINE INPUT #2,A$:LSET 

R$ (R)=A$:NEXT 40050 PUT #1,N 40060 
WEND:CLOSE 40070 RETURN 


4 - effacez cette ligne 909, et RUN pour 
vérifier. Si tout est OK faites DELETE 
40000-40070. Et voila le travail. 


ll arrive que l'on ait à traiter, modifier un 
fichier monobloc (binaire ou ASCII) prove- 
nant d'un logiciel quelconque. Par 
exemple remplacer tel ‘caractère" par tel 
autre, transformer en majuscules, etc. Il 
suffit de le considérer comme étant un 
fichier en accès direct, de le lire par des 
GET #1 en tronçons de longueur quel- 
conque, puis après traitement, constitu- 
tion d'un ‘fichier objet" par des PUT #2. 


Autre cas, construire un fichier en accès 
direct à partir d'un fichier en codage spé- 
cial. Un exemple réel, le contenu d'un 
tableau LOTUS (.WK1) de largeur 1250 


” (196 lignes sur 102 colonnes !) devait être 


exploité par un logiciel de mailing condi- 
tionnel en Basic : a - une "macro instruc- 
tion" LOTUS découpe le tableau en six 
"bandes" verticales, puis les sauvegardes 
en ASCII soit six fichiers .PRN (cette pos- 
sibilité LOTUS est limitée à une largeur de 
240). b - un programme Basic lit en 
séquentiel ces fichiers PRN, loge leurs 
contenus dans les 102 “variables FIELD", 
et PUT... En final un fichier en accès direct 
de 245 Ko directement interrogeable par 
le programme de mailing. 


Dans ce genre de bidouilles que l'on 
appelle des "programmes moulinettes" la 
solution fait appel une fois sur deux à la 
technique des fichiers en accès direct. 


Conclusion. 


Cette technique libère le Basic de ses 60 
kilo octets de RAM en lui permettant d'ex- 
ploiter des fichiers énormes, car ils n'ont 
pas à être chargés en mémoire. Il faut 
s'entourer de précautions en program- 
mant la saisie, les modifications ou les 
effacements, sinon la moindre bêtise sera 
immédiatement et irrémédiablement sau- 
vegardée ! Si les fichiers en accès direct 
ont une syntaxe facile à apprendre, il est 
obligatoire en revanche de bien com- 
prendre leur fonctionnement et leurs “lois” 
avant de les utiliser... 


Michel Archambault 


10 ‘ FICHDIR - Gestion de FICHIER en ACCES DIRECT - Michel ARCHAMBAULT 9/4/89 


20 ‘ adaptable en modifiant les lignes 60, 210, 310 et 410 


30 ‘ adjonction d'options en modifiant les lignes 1020, 1030 et 1040 
50 DEFINT A-Z:OPTION BASE O:KEY OFF 
60 NRU=3:’ nombre de rubriques 
100 DIM R$ (NRU) , LR (NRU) , L$ (NRU) 


110 ‘R$=noms des champ 


200 ‘LONGUEURS 
210 DATA 20,15,6 


LRelongueurs ; L$=libellés 


250 LT=0:RESTORE 210:FOR J=l TO NRU:READ LR(J) :LTæ=LT+LR (J) :NEXT 


300 ‘LIBELLES 


310 DATA NOM, Prénom, “Date AAMMJIJ” 
350 RESTORE 310:FOR Jæ=l TO NRU:READ L$ (J) :NEXT 


400 ‘ FICHIER DE TRAVAIL 


410 FIC$=" CLUB” : TITRES=" GESTION de FICHIER en ACCES DIRECT” 
420 GOSUB 30000:'’ouverture de FIC$ en #1 
430 NF=LOF (1)/LT:’ nombre de fiches 


1000 ‘MENU 


1010 CLS:LOCATE 4,2:PRINT'‘ Fichier “;:FIC$;” :";:NF; fiches" 


1020 DATA SAISIE, CONSULTATION, MODIFICATION, EFFACEMENT , QUITTER 
1030 RESTORE 1020:NOPT=5 : TIM$=TITRES : GOSUB 49000 
1040 ON K GOSUB 2000,3000, 4000,5000,1100 


1050 GOTO 1000 
1100 CLS:CLOSE:KEY ON 
1110 END 


2000 ‘SAISIE de Fiches nouvelles 
2010 N=NF+1:FQ=0:’ flag quitter 


2020 GOSUB 20000:LOCATE 2,30:PRINT”SAISIE (Q pour Quitter) “ 


2030 GOSUB 22000 


2040 IF FQ=1 THEN NF=N-1 :FQ=0:GOTO 2060 


2050 NFæN:GOTO 2010 
2060 RETURN 


3000 ‘CONSULTATION-RECHERCHE 

3010 DATA “VISION d’une Fiche N° n”,RECHERCHE, Quitter 
3020 CLS:TIM$="" : NOPT=3:RESTORE 3010:GOSUB 49000 
3030 ON K GOTO 3100, 3200,3300 

3100 CLS:LOCATE 12,28:LINE INEUT"N° de Fiche à visionner “,N$ 
3110 N=VAL(NS):IF N=0 OR N>NF THEN BEEP :GOTO 3100 
3120 GET #1,N:GOSUB 20000:GOSUB 21000 

3130 LOCATE 23,36:INPUT”TAPEZ ENTER “,R$:GOTO 3000 
3200 CLS:TIM$=”’Recherche par quelle Rubrique ?":RESTORE 310:NOPT=NRU:GOSUB 49000 
3210 R=K:CLS:LOCATE 12,2:PRINT”Valeur recherchée dans “;:L$(R);” : “;:LINE INPUT”",VS 
3220 LOCATE 15,35:PRINT”Patience..." 
3230 FOR N=1 TO NF:GET #1,N 

3240 IF INSTR(RS (R),V$)=0 THEN 3260 
3250 GOSUB 20000:GOSUB 21000:LOCATE 23,36:INPUT”/TAPEZ ENTER “,RS$S 


3260 NEXT 
3270 GOTO 3000 
3300 RETURN 


4000 ‘ MODIFICATION 
4010 FMOD=1 : FQ=0 

4020 CLS:LOCATE 12,16:LINE INPUT”N° de la Fiche à MODIFIER (Q pour Quitter) “,NS 
4030 IF N$="Q" OR N$="q" THEN 4070 

4040 N=VAL(NS):IF N=0 OR N>NF THEN BEEP:GOTO 4020 

4050 GET #1,N:GOSUB 20000:GOSUB 21000:LOCATE 2,27:PRINT”MODIFICATION (Q pour 
Quitter) “:GOSUB 22000 

4060 

4070 

4080 

5000 ‘ EFFACEMENT (mise à blanc) d’une Fiche 

5010 CLS:LOCATE 12,19:LINE INPUT’N° de la Fiche à EFFACER (Q pour Quitter) “,N$ 
5020 IF N$="Q" OR N$=”q" THEN 5080 

5030 N=VAL(NS):IF N=0 OR N>NF THEN BEEP:GOTO 5010 

5040 GET #1,N:GOSUB 20000:GOSUB 21000 

5050 LOCATE 2,36:PRINT”’A EFFACER ?":TEX$="ON":GOSUB 50000:IF K=2 THEN 5010 
5060 LSET TOTAL$="":PUT #1,N 

5070 GOTO 5010 

5080 RETURN 

20000 ‘ AFFICHE LIBELLES 

20010 CLS:LOCATE 2,2:PRINT”Fiche N°";:N 

20020 FOR J=1 TO NRU:LOCATE J+3,2:PRINT L$(J);" “;STRINGS (16- 
LEN(LS(J)),".");TAB(20+LR(J));">":NEXT 

20030 RETURN 

21000 ‘ AFFICHE VALEURS 

21010 FOR J=1 TO NRU:LOCATE J+3,20:PRINT R$ (J) :NEXT 

21020 RETURN 

22000 ‘ ENTRÉES DE VALEURS - FMOD=flag modification 

22010 FOR J=1 TO NRU 

22020 LOCATE J+3,20:LINE INPUT “”,A$ 

22030 IF J=1l AND (A$="Q” OR A$="q") THEN FQ=1:J=NRU:GOTO 22060 
22040 IF FMOD=1 AND A$="" THEN 22060 

22050 LSET R$(J)=A$ 

22060 NEXT:IF FO=1 THEN 22090 

22070 LOCATE NRU+5,38:PRINT"OK ?”:TEX$="ON":GOSUB 50000:IF K=2 THEN 22010 
22080 BUT #1,N 

22090 RETURN 

30000 ‘OUVERTURE DU FICHIER EN ACCES DIRECT 

30010 OPEN FIC$ AS #1 LEN=LT 

30020 FIELD #1,LR(1) AS R$ (1) :TT=LR(1) 

30030 FOR J=2 TO NRU 

30040 FIELD #1,TT AS X$,LR(J) AS R$(J) :TT=TT+LR(J) 

30050 NEXT 

30060 FIELD #1,LT AS TOTALS 

30070 RETURN 

49000 ‘ AFFMENUA = AFFICHAGE de MENU 

49010 ‘ NOPT=Nombre d’Options:TIMS=TITRE du MENU 

49020 LOCATE 2, (80-LEN(TIMS))/2:PRINT TIMS 

49030 TEX$="":FOR J=1 TO NOPT 

49040 READ OPT$:TEXS=TEXS+LEFTS (OPTS, 1) 

49050 LOCATE J*2+12-NOPT, 30:PRINT LEFTS (OPT$,1);" — “;OPTS 
49060 NEXT 

49070 GOSUB 50000 

49080 RETURN 

50000 : MENUA - REPONSE À UN MENU 

50010 LM=LEN (TEX$) 

50020 LOCATE 24, (70-LM*2)/2:PRINT”Réponse ("; 

50030 FOR I= 1 TO LM-1:PRINT MID$(TEXS,I,1):",";:NEXT 

50040 PRINT RIGHTS (TEXS,1);")"; 

50050 R$=”":WHILE R$="":R$=INPUTS (1) :WEND 

50060 UPP$=R$:GOSUB 51000 :R$=UPPS 

50070 K=INSTR(TEXS, R$) 

50080 IF K=0 THEN BEEP:GOTO 50050 

50090 LOCATE 24,1:PRINT SEACES (79) ; 

50100 RETURN ; 

51000 ‘ UPPERA - MISE EN MAJUSCULES 

51010 FOR I=1 TO LEN(UPPS) 

51020 IF ASC(MIDS(UPP$,I,1))>96 AND ASC(MIDS (UPP$,I,1))<123 THEN 
MID$ (UPP$, I, 1) =CHRS$ (ASC (MIDS (UPP$, I, 1) )-32) 

51030 NEXT 

51040 RETURN 


DIERÈIE 


| Malheureusement, Browse travaille en 
mode plein écran : dans un programme, 
| cela peut être agréable de le mettre dans 
une fenêtre. En réduisant ses fonctions on 
peut en faire une procédure pour guider 
| le choix d'un utilisateur, bref un complé- 
ment indispensable à votre boîte à outils. 
| Aussi nous vous proposons ici une procé- 
| dure émulant les fonctions de "Browse" à 
l'intérieur d'une fenêtre. 

Un autre avantage d'une telle procédure 
concerne le travail avec un compilateur 
dBase. En effet, ceux-ci, pour des raisons 
de sécurité (sur un réseau par exemple), 
peuvent refuser de générer le code cor- 
respondant à cette instruction. 

| Vous trouverez accompagnant cet article 
le listing du fichier "Balaye.Prg" contenant 
la procédure "Balaye”. Nous avons choisi 
d'appeler ainsi notre procédure car 
"Browse" est un mot anglais signifiant 
entre autre parcourir, feuilleter ou butiner : 
| le mot français Balayer peut lui aussi 
contenir le concept de parcourir. 

Vous pouvez utiliser "Balaye.Prg" pour l'in- 
clure dans un fichier de procédures, ou 
comme nous l'avons fait pour créer un 
fichier de procédures (par exemple avec 
la commande : "MODIFY COMMAND 
Balaye"). 

Une fois le texte de ce listing saisi, activez 
ce fichier de procédure par la commande 
: "SET PROCEDURE TO Balaye”. Vous 
pouvez alors appeler la procédure 
"Balaye” avec la commande suivante : 


. DO BALAYE WITH LigO, Col, Lige, 
Col9, "Clef 


Le "WITH" ajouté après le BALAYE permet 
de passer 5 paramètres à la procédure 
colonne de départ, puis celles d'arrivée, 
un peu à la manière d'une commande "@ 
LigO, Col0, TO Lig9, Col9”". 

Le dernier paramètre “Clef” est une chaîne 
de caractères contenant la formule de 
calcul de la clef si votre fichier est indexé. 
Ceci permettra à "BALAYE" de vérifier sim- 
plement, après l'édition d'un champ et 
lors des changement de ligne, si l'ordre 
d'affichage risque d'être perturbé ou non. 
Si par contre votre fichier ne possède pas 
d'index, passez une constante comme 
dernier paramètre. 


Fichier Balaye.Prg 
dans une fenêtre 


des clefs 


d'affichage (Hauteur mini 


HN OH OO OO OÙ ff 


PROCEDURE Balaye 
PARAMETER Lg0, C10, Lg9, C19, Cle 


@ Lg0, C10 TO Lg9, C19 
Lg0 = Lg0 2 

C10 C10 

Lg9 Lg9 

Cc19 C19 


IF EOF() 


DO Colonn 


IF .NOT. AddFic 
RETURN 
ENDIF 
ENDIF 


Reorg = .F. 
DO VisLst 


DO WHILE .T. 
OldCle = &Cle 
DO GetLig 
READ 
IF (OldCle # &Cle) 
Reorg 


UN BROWSE DANS UNE 
FENETRE 


"Browse", une instruction de dBase bien agréable pour voir et manipu- 
ler les enregistrement d'une base de données. 


: Procédure BALAYE émulant un BROWSE 
Jean-Paul Pruniaux le 18 avril 1989 


DO Balaye WITH Ligne Min, Colonne Min, Ligne Max, ; 
Colonne Max, Expression de surveillance ; 


Les paramètres Ligne / Colonne définissent une fenêtre 
5, largeur mini 3) 


L'expression de surveillance des clefs est une chaîne 

de caractères contenant la formule de calcul de la clef 
en cours d’utilsiation (Utiliser une constante si pas de 
clef, par exemple “1” ou “’Constante’”) 


Cadre de la fenêtre 
Coordonnées disponibles 
pour l'affichage 


Premier record affiché 
Record en cours d'édition 
Dernier record (inconnu) 
Ligne en cours édition 
Dernière ligne (inconnue) 
Premier champ affiché 
Champs en cours édition 
Dernier champ (inconnu) 
Ancien PreFld lié à PreCol: 
C2lonne en cours édition 
Affiche Entete 


Si fichier vide demander 
si on ajoute des fiches 


Sera vrai pour demander le 
réaffichage après modif 
Affichage de la liste 


Boucle d'édition 
Clef avant édition 
Edition d'un champ 


Changement de l'expression 
clef (il faudra réafficher 


ENDIF 


Touche = READKEY() 
IF Touche > 255 

Touche = Touche 
ENDIF 


Touche = 0 
DO RecGau 


Touche = 1 
DO RecDro 
Touche = 2 
DO RecGau 


Touche = 3 
DO RecDro 


Touche = 4 
DO LigHau 


Touche = 5 
DO LigBas 


Touche = 6 
DO PagHau 


Touche = 7 
DO PagBas 


Touche 12 
EXIT 


Touche = 14 
EXIT 


Touche = 15 
DO RecDro 


Touche = 16 
DO RecDro 


Touche = 33 


Touche 34 

GO TOP 

PreRec RECNO () 
MemRec = PreRec 
MemLig = Lg0 

DO VisLst 


Touche = 35 

GO BOTTOM 

PreRec = RECNO\() 
MemRec = PreRec 
MemLig = Lg0O 

DO VisLst 


Touche = 36 


ENDCASE 
ENDDO 
RETURN 


k— 


PROCEDURE Colonn &6& en cours, 


&& 


TstVis = (ColFld # PreFld) 
IF TstVis 
L = Lg0 -1 * 
@ L, C10 CLEAR TO L,C19 
ColFld = PreFld 
ENDIF 


Fld = PreFld 


la liste au prochain mouvt 


Code de la touche de sortie 
de READ (ramené entre 0 et 
255) 


AIGUILLAGE PRINCIPAL 
Flèche gauche 


Flèche droite 


Home 

End 

Flèche re 

Flèche basse 

Page Up 

Page Down 

Escape 

Ctrl End 

Champ rempli, —> suivant 
Entrée 


Ctrl-Home 
Ctrl-PgUp 
&& Premier record affiché 
&& Champ en cours édition 
&& Ligne en cours édition 
Ctrl-PgDn 
&& Premier record affiché 


&& Record en cours d'édition 
&& Ligne en cours édition 


Fl (Aide) 


&& Calcul la colonne d'affichage du champ 


affiche éventuelt les titres 


&& Vrai si titre à afficher 


&& Efface ligne de titre 


&& Boucle du premier champs 


. * Exemple de fichier non indexé 

. USE Clients 

. SET PROCEDURE TO Balaye 

. DO Balaye WITH 3,10, 20,50,"1" 
. * Exemple avec un fichier index 


. INDEX ON UPPER(Nom) TO Clients 

. DO Balaye WITH 3,10, 20,50, 
“UPPER(Nom)' 

Une fois dans "Balaye”, la fenêtre se des- 
sine, la première ligne affiche les noms 
des enregistrements, et dessous viennent 
autant d'enregistrements que la fenêtre 
peut en contenir. La dernière ligne reste 
vierge pour pouvoir afficher un message. 
Une ligne est alors en vidéo inversée et le 
curseur est positionné sur l'un des carac- 
tères de cette ligne. Vous pouvez alors 
modifier le champ mis ainsi en évidence. 
Les flèches (y inclus "Page ver le haut et 
"Page vers le bas") vous permettent de 
vous déplacer d'un champs à l'autre et 
d'une ligne à une autre. 

Si le champ le plus à droite est plus large 
que la fenêtre ne le permet, seuls les pre- 
miers caractères sont affichés. 
Cependant, lorsque vous en serez à 
modifier ce champs, vous pourrez en faire 
défiler le contenu grâce aux flèches droite 
et gauche pour voir ou modifier le texte 
situé au delà de la dernière colonne. 

Si vous modifiez l'expression clef, la 
fenêtre sera réorganisée, et affichée de 
nouveau lors du prochain changement de 
ligne. 

Vous sortez de “Balaye" soit par la touche 
"Escape" ou "Echappement" soit par les 
touches "Contrôle Fin° ou "Contrôle W". 

Ce programme a été écrit pour “dBase 
1114" (et tout produit 100% compatible). 


CE QUI REND POSSIBLE "BALAYE". 


La fonction majeure permettant l'écriture 
d'un programme comme "Balaye" est la 
fonction READKEY(). 

Après une séquence "@ … GET .., 
"READ" permet de connaître la dernière 
touche qui a été frappée par l'utilisateur 
avant de quitter l'édition. 

READKEY() retourne un code permettant 
d'identifier cette touche, celui-ci est supé- 
rieur à 255 si la donnée en cours d'édition 
a été modifiée, ou un code inférieur à 255 
si cette donnée n'a pas été modifiée. Les 
codes retournés par READKEY() sont les 
suivants : 

0 ou 256 : Effacement arrière ou flèche 
gauche 1 ou 257 : Flèche droite 2 ou 258 
: Home (recul d'un mot) 3 ou 259 : End 
(avance d'un mot) 4 ou 260 : Flèche vers 
le haut (champ précédent) 5 ou 261 
Flèche vers le bas (champ suivant) 6 ou 
262 : Page précédente 7 ou 263 : Page 
suivante 12 : Escape ou Echappement 
(Abandon) 14 ou 270 : Contrôle Fin 
(Sauvegarde) 15-ou 271 : Champs rem- 
plis, curseur arrivé au bord droit 16 ou 


F = FIELD (Fld) && à afficher au dernier 
Col = C10 
DO WHILE LEN(F) # O .AND. Col<C19 
IF Fld = MemFla 
MemCol = Col && Colonne du champs en cours 
ENDIF 


CESSE 


272 : Entrée (Validation du champ) 33 ou 
289 : Contrôle Home (habituellement utili- 


Col2= Col + LEN (&F) 
sé pour appeler un champ mémo) 34 ou IF TstVis L£ Affichege Libre 
290 : Contrôle Page Vers le Haut 35 ou Vis =F 
291 : Contrôle Page Vers le Bas 36 ou 292 IF Col2 > C19 SE Vérifie l'onconbrenne 
: F1 : Touche de fonction associée à l'ai- Vis = LEFT (Vis, C19 - Col + 1) 
de. ENDIF 


Ainsi après la saisie d'un champ, nous 


IF LEN (Vis) > LEN (&F) 
pourrons tester le code en retour de cette 


Vis = LEFT (Vis, LEN(&F)) 


fonction pour savoir si nous devons éditer ENDIF 

le champ suivant, le champ précédant, @ L, Col SAY Vis 

remonter d'une ligne, … ENDIF 

Une autre fonctionnalité importante de Col = Col2 + 1 && Paasage colonne suivante, 
"dBase" que nous avons utilisée réside Fld = Fld + 1 && champ suivant 

dans les macros. Le symbole "&" suivi F = FIELD (Fld) 


d'un nom de variable de type chaîne de 
caractères permet de remplacer un mor- 
ceau de commande ou de source de pro- 
gramme par le contenu de cette variable : 


RETURN 


K——— 


PROCEDURE VisLig && Visualise une ligne «Lig» de la fenêtre 


PARAMETER Lig ‘&& 

=" “ DerFld = PreFld && Boucle sur les champs 

Pr DO NES CNIENRT Fld = FIELD (DerFld) && (recalcul DerFld) 
Col = C10 && et sur les colonnes) 
Peindre Sea DO WHILE LEN(Fld) # O .AND. Col<C19 
eviendra à l'exécution Vis = &Fld 
! Col2 = Col + LEN (Vis && Vérifie la taille de la 

. INDEX ON UPPER (Nom) TO Client IF Col2 > C19 ( ) £s Fenètre 

; Vis = LEFT (Vis, C19 —- Col + 1) 
Ceci nous est utile à plusieurs endroits de ENDIF 


"Balaye”. Par exemple lorsque nous sur- 


@ Lig, Col SAY Vis 
veillons les changements de valeur de la 


clef, nous pouvons mémoriser la clef Col = Col2+1 && Colonne suivante 
avant la modification d'un champ par la DerFld = DerFld+1 && Champ suivant 
ligne : Fld = FIELD (DerFld) 
ENDDO 
. OldCle = &Cle DerFld = DerFld - 1 && Mise à jour dernier champ 
RETURN 


* 


PROCEDURE VisMem £& Visu en vidéo inverse la ligne en cours 
&& 


Ce qui deviendra à l'exécution : 


. OldCle = UPPER (Nom) 


GO MemRec 
SET COLOR TO N/W 
DO VisLig WITH MemLig 
SET COLOR TO 
RETURN 
D 
PROCEDURE GetLig && Saisie du champ en cours 
&& 
Fld = FIELD (MemFld) 
ci2 MemCol + LEN (&Fld) && Colonne de fin 
IF C12 > C19 && si supérieur à colonne max 
&& utiliser PICTURE “@Sxxx” 


&& pour gérer un défilement 
NbrCar C19 — MemCol + 1 


Pct “@S”+LTRIM(STR (NbrCar)) 
@ MemLig, MemCol GET &Fld PICTURE ‘&Pct' 


Ceci revient à dire que nous sommes 
capables de modifier le programme en 
fonction du contenu de certaines 
variables. 

Une dernière fonctionnalité importante de 
"dBase” que nous avons utilisé est dans la 
fonction FIELD(Numero). Celle-ci nous 
retourne une chaîne de caractères préci- 
| sant le nom du champ de numéro donné. 
| Ainsi si la base de données comprend les 
| champs “Nom, Prenom, Adresse .", 
| FIELD(1) renvoie "NOM", et ‘FIELD(3)' ren- 
voie "ADRESSE". 


Ceci nous est utile, grâce à une macro "&' ELSE 
pour visualiser ou éditer le contenu d'un @ MemLig, MemCol GET &Fld 
champ : ENDIF 

RETURN 


K—— 


PROCEDURE VisLst &6& Visualise tous les enreag. 
&& 
@ Lg0, C10 CLEAR TO Lg9,C19 && Efface fenêtre 


. NomChamp = FIELD (3). @ 10, 10 GET 
&NomChamp 


Devient à l'exécution : 


DerLig = Lg0 && Boucle avec recalcul 
GO PreRec && de la «Dernière ligne» 
DO WHILE (DerLig < Lg9) .AND. .NOT. EOF() 

DO VisLig WITH DerLig 

DerLig = DerLig+1 


. @ 10, 10 GET ADRESSE 


Si le numéro transmis à FIELD() est trop 
grand, cette fonction retourne une chaîne 


SKIP 
ENDDO 
DerLig = DerLig - 1 
SKIP -1 2 
DerRec = RECNO() 
DO VisMem 
RETURN 
— 


PROCEDURE PagBas && Une page (un écran) vers le bas 
&& 


&& Mise à jour paramètres 


IF Reorg && Pas faite si modif de 
DO DepLig && l'expression clef 
ELSE 
GO DerRec && Enregistrement du bas 
SKIP && Suivant 
IF EOF() 
DO GetAd2 && Si fin demander si ajout 
RETURN ‘ 
ENDIF 
PreRec = RECNO() && Mise à jour paramètre 
MemRec = PreRec 
MemLig = LgO 
ENDIF 
DO VisLst && Réaffichage 
RETURN 


K—— 


PROCEDURE PagHau &£& Une page (un écran) vers le haut 
CE 


IF Reorg && Si modif expression clef 


Limite d'écran 


Premier 


Première Ligne / Enregistrement 
_1gne / Enregistrement en-cours 


Dernière Ligne / Enregistrement 


Fin de fichier 


DO DepLig && Paramétrer la ligne en 


SKIP && cours comme début d'écran 


ELSE 
GO PreRec 
ENDIF 
SKIP Lg0-Lg9 
PreRec = RECNO() && la hauteur de l'écran 
MemRac = PreRec 
MemLig = LgO 
DO VisLst 
RETURN 
du 
PROCEDURE RecDro &£& Un champ (record) à droite 
66 
Action = .F. 
&& l'affichage 


IF MenFld >= DerFld && Teste si bord droit 


IF LEN (FIELD (PreFld + 1)) > O0 66 et si dernier champ 


PreFld = PreFld + 1 
IF Reorg . ; 
DO DepLig 
ENDIF 
DO VisLst 
Action = .T. 
ENDIF 
ENDIF 
IF MenFld < DerFld 


&& Sinon repositioner en haut 
&& Recule dans le fichier de 


&& Vrai si raffraichissage de 


&& Teste s'il reste un champ 


de longueur nulle. Ceci permet de tester 
l'existence d'un champ de numéro donné, 
ou encore de savoir si on a exploité tous 
les champs de la base de données. 


COMMENT EST ORGANISE 
"BALAYE". 


Les éléments manipulés par “Balaye* sont 
les suivants : 

- Une fenêtre contenant entre autre une 
première ligne, une ligne en vidéo-inverse 
et une dernière ligne. - A chaque ligne est 
associé un enregistrement de la base de 
données, donc à la première ligne un pre- 
mier enregistrement, de même un enre- 
gistrement pour la ligne en vidéo inversée 
et un pour la dernière ligne. - Sur une 
ligne peuvent être visualisés plusieurs | 
champs d'un même enregistrement. Entre 
autre un premier champ, un champ en 
cours d'édition et un dernier champ. 

Ceci peut se visualiser dans le schéma ci 
dessous : 


Champ Dernier 


| en cours |Ehamp 


ET NT 


Ce schéma illustre les variables clefs que 
nous gérons dans "Balaye”. "PreRec" 
"MemRec' et "DerRec” sont des numéros 
d'enregistrement, respectivement celui de 
la première ligne, de la ligne en cours 
d'édition (enregistrement mémorisé), et 
celui de la dernière ligne ; de la même 
manière "PreFld", "MemFid' et "DerFid” | 
mémorisent des numéros de champs. 
"MemCol" sert à mémoriser la colonne | 
d'écran ou commence l'affichage du | 
champ correspondant à "MemFid'. : 
La mémorisation de ces informations va |. 
permettre de gérer simplement les mou- 
vements de la zone en vidéo inversée, ou 
les mises à jour d'affichage dans la | 
fenêtre. . 
Par exemple si l'utilisateur de notre pro- 
gramme frappe la touche “Flèche Vers le 
Bas” pour terminer l'édition du champs en 
cours ("MemFild'), nous pouvons compa- |! 
rer "MemLig" avec "DerLig* pour savoir s'il | 
existe un autre enregistrement affiché en |! 
dessous. Si cet enregistrement existe, il 
suffit de le mettre en vidéo inversée (en 


DIFASIE 


pensant à avancer dans le fichier, et en 
| pensant à mettre à jour les valeurs 
"MemLig" et 'MemRec'). 

Si par contre nous sommes sur la dernière 
| ligne, nous pouvons nous repositionner 
sur le premier enregistrement, avancer 
d'un enregistrement pour être sur le 
deuxième, le déclarer comme étant le pre- 
| mier et refaire un affichage général. Ceci 
va se traduire par le défilement d'un enre- 
| gistrement vers le haut à l'écran. 

De la même manière, nous pouvons gérer 
le déplacement latéral d'un champ à un 
autre en comparant "MemFld”" avec 
"PreFld” ou "DerFld”. 

Grâce à ceci nous pouvons écrire une 
série de petites procédures gérant : Le 
déplacement d'un champ vers la droite, 
| celui d'un champ vers la gauche, celui 
| d'une ligne vers le bas ou vers le haut, et 
celui d'une page vers le bas ou vers le 
haut. 

Après l'édition du champ en cours, il suffit 
de récupérer la valeur fournie par "READ- 
KEY()" et de sélectionner la procédure 
appropriée par un grand "DO CASE". 

| La dernière difficulté à résoudre concerne 
la saisie du champ le plus à droite si celui- 
ci est plus grand que ce que permet la 
largeur de la fenêtre. 

La saisie est dirigée par une série de 
commande "@ … GET ..", "READ". Or 
nous pouvons donner des directives au 
"GET" grâce à la clause "PICTURE 
"Directive". Ces directives sont des 
| chaînes de caractères codifiées. L'une de 
ces directives, “”" permet de limiter la 
largeur d'affichage d'une zone de saisie. 
Supposons par exemple que le champ 
'Adresse" fasse 35 caractères de large, et 
que nous utilisions la commande sui- 
vante : 


@ 10,10 GET Adresse PICTURE * READ 


Seuls les 15 premiers caractères de 
"Adresse" seront visualisés dans un pre- 
mier temps. Le curseur sera sur le premier 
de ces caractères. Si nous modifions les 
15 premiers caractères, ou si nous dépla- 
çons 15 fois le curseur à droite, nous 
serons alors sur le dernier caractère. La 
saisie d'un nouveau caractère ou le 
déplacement du curseur va faire défiler 
sur la gauche le contenu de la zone de 
saisie pour montrer la suite de ‘Adresse. 
Et nous pouvons continuer ainsi jusqu'à 
arriver au dernier caractère. Nous pou- 
vons provoquer le déplacement inverse 
avec la flèche à gauche. 
Avec le listing de la procédure “Balaye', 
nous vous avons fourni un petit program- 
me “TstBal" permettant de tester celle-ci, 
et de vous montrer comment utiliser 
| "Balaye”. Maintenant, à vous de vous 
mettre à vos claviers, et de mettre des 
"BROWSE" dans des fenêtres, ou dans 
vos programmes compilés. 

Jean Paul Pruniaux 


MenF la 
Action 
ENDIF 
IF Action 
DO Colonn 
ELSE 
DO LigBas 
ENDIF 
RETURN 


K— 


PROCEDURE RecGau 


MenFld + 1 
TT: 


&& Gère l'affichage 


&& Un champ (record) à gauche 
&& 
IF (MemFld <= PreFld) .AND. (PreFld > 1) 
PreFld = PreFlda -— 1 && Mouvement à gauche 
MenFld = PreFlda 
DO Colonn 
IF Reorg 
DO DepLig 
ENDIF 
DO VisLst 
RETURN 
ENDIF 
IF (MemFld > PreFld) 
MemFld = MemFld -— 1 


&& Translation sans mouvement 


DO Colonn 
RETURN 
ENDIF 
DO LigHau && si rien monter d’une ligne 
RETURN 
pale 
PROCEDURE LigBas && Une ligne vers le bas 
&& 
IF Reorg && Si modif expression clef 
DO DepLig && Mettre la ligne en haut 
DO VisLst && et réafficher 
ENDIF 
IF MemLig < DerLig && Si pas en bas de l'écran 
DO VisLig WITH MemLig && Enlever vidéo inverse 
MenLig = MemLig + 1 && Passer ligne suivante 
SKIP && et afficher 
MemRec = RECNO() 
DO VisMem 
ELSE && Si bas de l'écran 
SKIP | 
IF EOF () && Si fin de fichier Ajout ? 
DO GetAd2 
ELSE 
MemRec = RECNO() && Sinon défilement d’1 ligne 
GO PreRec 
SKIP 
PreRec = RECNO() 
DO VisLst 
ENDIF 
ENDIF 
RETURN 
Re 
PROCEDURE LigHau && Une ligne vers le haut 
&& 
IF Reorg && Si modif expression clef 
DO DepLig && Mise à jour paramètres 
SKIP -1 && Remonte une ligne 
IF .NOT. BOF() && Teste limites 
PreRec = RECNO() 
MemLig = LgO +1 
SKIP 
ELSE 
GO MemRec 
ENDIF 
DO VisLst && Réaffiche 
ENDIF 
IF MemLig > Lg0 && Teste si première ligne 


DO VisLig WITH MemLig && Remontée d’une ligne 
MemLig = MemLig -— 1 

SKIP -1 

MemRec = RECNO () 

DO VisMem 


ELSE && En première ligne 
SKIP -1 && remonte et défile 
IF .NOT. BOF (). 
PreRec = RECNO() 
MemRec = PreRec 
DO VisLst 


PROCEDURE DaepLig && Mise à jour paramètres après modif clef 
ë && 


PreRec = MemRec 
MemLig = Lg0 
Reorg = .F. 
RETURN 
_—— 
PROCEDURE GetAdd &£& Traitement fin de fichier : Ajout ? 
&& 
2? CHR(7) £& Beep ! 
IF C19-C10 >= 7 && Si largeur suffisante 
@ Lg9,C10 SAY “Ajout” GET AddFic 
READ && Question Ajout ? 
@ Lg9,C10 SAY “ # 
IF AddFic && Si Ok : Ajout 
APPEND BLANK 
ENDIF 
ELSE 
AddFic = .F. 


. ENDIF 
RETURN 


k—— 


PROCEDURE GetAd2 &£ Traitement fin de fichier : Ajout ? 


&& Avec gestion de l'affichage fenêtre 
&& Demande si ajout 


£&& Nouvelle clef 
IF MemLig < Lg9 -1 && Si ligne dispo l'utiliser 
Rec = RECNO\() 
Go MemRec 
DO VisLig WITH MemLig 
GO Rec 
MemRec = Rec 
MemLig = DerLig +1 
DO VisMem 
ELSE && Pas de ligne dispo 
MemRec = RECNO() && Régénérer l'affichage 
DO DepLig 
DO VisLst 
. ENDIF 
ELSE 
GO MemRec 
ENDIF 
RETURN 


* TstBal.Prg : Test de la procédure «Balaye» 


SET TALK OFF 

SET STATUS OFF 

SET SCOREBOARD OFF 

CLEAR 

@ 0,0 SAY “Test de la procédure BALAYE, émulation de BROWSE dans une fenêtre” 
@ 1,0 SAY “Jean-Paul Pruniaux le 18 avril 1989, pour Compatibles PC Magazine” 


SET PROCEDURE TO BALAYE 
USE Clients INDEX Clients 


DO Balaye WITH 4, 10,11,70, “UPPER (Nom) ” 
DO Balaye WITH 12,37,20,43, “UPPER (Nom) ” 


: RETURN 


PASCAIL 
DESSINER EN TÜRBO 


PASCAL 4 


Ce programme permet de créer un dessin, de le modifier et de le  L'encadré reproduit l'unité ‘Detect' qui 
CSA PE RE LE PR A SEE EN EG ESPN sert à détecter quelle graphique est 
sauvegarder dans un fichier. Sa visualisation se fera en mode présente et de configurer le mode 
PS UNS PC ED TE De LENS UE Pi ee Eee a en are 1 M > It UT 2 CV graphique, selon le cas, en Hercules, 
graphique. CGA, EGA ou VGA. 


Louala Nasser 


program creation dessin; 


(* Utilisation de diverses unités *) 
uses crt,dos,graph, detect; 


const Xmax=78; Longueur maximale du dessin *) 
Ymax=21; Largeur maximale du dessin *) 


Pv=#32; Code ASCII touche Espace > *) 
Esc=#27; Code ASCII touche < Escape > *) 


L£f=#75; Code ASCII touche Flèche gauche > *) 
Rg=#77; Code ASCII touche Flèche droite > *) 
Up=#72; Code ASCII touche Flèche haut > *) 
Dw=#80; Code ASCII touche Flèche bas > *) 


chaine=string{Xmax]; 
fichier=file of chaine: 
nomfich=string{8]; 


tableau:array{1..Xmax,1..Ymax] of byte; 
choix:char; 

nomf:nomfich; 

xi,yi:byte:; 


procedure cardillage; 
(* Domaine de visualisation du dessin *) 


begin 
ClEser; 
for xi:=1 to Xmax do 
begin : 
gotoxy (1+xi,2);write(’”’);gotoxy(1+xi, 3+Ymax) ;write(’"’); 
end; 
for yi:=1 to Ymax do 
begin 
gotoxy (1,yi+2);write(’”’);gotoxy (Xmax+2,yi+2) ;write(’”’); 
end; 
gotoxy (1,2);write(” ’);gotoxy (1, Ymax+3) ;write(’"’); 
gotoxy (2+Xmax, 2) ;write (’»’) ;gotoxy (Xmax+2, Ymax+3) ;write(’…’); 
gotoxy (5,1); 
write (’ [ Flèches ] : déplacement / [ Esp ] : dessine / [ Esc ] : pour arrêter’); 
window(2,3,Xmax+1,Ymax+4) ; 
for xi:=1 to Xmax do for yi:=1 to Ymax do 


begin 
gotoxy(xi,yi):write(chr(176)); 
end; 
end; 


procedure deplace (x,y:byte;pave:boolean); 
(* Déplace le curseur et laisse ou non suivant la valeur de pavé une trace *) 


begin 
gotoxy(xi,yi); 
if not (pave) then begin write(chr(176));tableau[x,y]:=0 end 
else begin write(chr(219));tableau[x,y]:=1 end; 
gotoxy (x,y):write(’/0');xi:=x;yi:=y; : 

end; 


procedure lect dessin; 
(* 
Dessine en faisant appel à la procedure deplace : 
Le dessin se fait à l’aide des touches de déplacements, La touche Espace 


sert à visualiser ou non le tracé, la touche <Esc> : fin de l’execution 
ei) 


X,y:byte; 
choix:char: 
pave :boolean; 


begin 
xi:=40;yi:=10;x:=40;y:=10;pave:=false; deplace (x,y,pave) ;choix:=readkey; 
repeat 3 
if choix=Pv then pave:=not (pave) ; 
if (choix=Lf) and (x>1) then dec(x); 
if (choix=Rg) and (x<Xmax) then inc(x); 
if (choix=Up) and (y>1) then dec(y); 
if (choix=Dw) and (y<Ymax) then inc(y); 
deplace (x,y,pave);:choix:=readkey 
until choix=Esc;window(1,1,80,25); 
end; 


procedure affiche dessin (nomf:nomfich); 


(* Visualise le dessin en mode texte quadrillé *) 


var chain:chaïine; 
fich:fichter: 
begin 
clrscr:assign(fich,nomf) ; reset (fich):cardillage;:yi:=0; 
repeat 
read(fich,chain);inc(yi); 
for xi:=1 to Xmax do 
begin 
gotoxy(xi,yi); 
if copy(chain,xi,1)=’1’ then 
begin 
tableau[xi,yi]l:=1;write(chr(219)) 
end 
else begin 
tableaul[xi,yi]:=0;write(chr(176)) 
end’; 
end: 
until eof(fich);close(fich) 
end; 


ISTERGE 


procedure sauvegarde (Yam:byte;nomf:nomfich) ; 
(* Sauvegarde le dessin creé dans un fichier *) 


var Car:string{1]; 
chain:chaine; 
fich:fichier; 


begin 
assign(fich,nomf) ;rewrite (fich);chain:=’"’; 
for yi:=1 to Yam do 
begin 
for xi:=1 to Xmax do 
begin 
str(tableau[xi,yi]l,car);chain:=chain+car; 
end;write(fich,chain);chain:=’’; 
. end;close(fich); 
end’ 


procedure creer _dessin; 


(* Appel la procedure Lect_ dessin / Yam = largeur maximale du dessin *) 


var Yam:byte; 
nomf:nomfich; 
pave:boolean; 


begin 
lect_ dessin; 
for yi:=1 to Ymax do 
begin 
pave:=false;xi:=1l; 
repeat 
if tableau[xi,yi]=1 then pave:=true;inc(xi) 
until (pave) or (xi>Xmax); 
if pave then Yam:=yi; 
end; 


gotoxy (1,25) ;write(’ Sauvegarde du dessin (o)ui ?°: ’);choix:=readkey: 


if .upcase(choix)="’0’ then 
begin 
gotoxy (1,25) :clreol; gotoxy (1,25) ;write(’Nom du dessin ? : ’); 
readln (nomf) ; sauvegarde (Yam,nomf) 
end: J 
end; 


procedure dessin Graph(nomf:nomfich); 


(* affiche la figure en mode graphique *) 


var chain:chaine: 
fich:fichier: 


begin 
assign(fich, nomf) ; reset (fich);detection;:ClearDevice;:yi:=0; 
repeat 
read(fich,chain);:inc(yi); 
for xi:=1 to Xmax do: 
begin 
if copy(chain,xi,1)=’1" then PutPixel(xi+100,yi+100,1) 
else PutPixel(xi+100,yi+100,0); 
end; 
until eof(fich): 


close (fich) ;: choix:=readkey; closegraph 
end; 


(* présentation du menu général et initialisation de tableau *) 


begin 
repeat 
for yi:=1 to Ymax do for xi:=1 to Xmax do tableaul[xi,yi]:=0;clrscr: 
gotoxy (20,4);:write(’C) réation d’’un dessin’); 
gotoxy (20,6);write(’L) ecture d’’un dessin en mode text’); 
gotoxy (20,8);:write(’M) odification d’’un dessin’); 
gotoxy (20,10);write(’A) ffichage du dessin en mode graphique’): 
gotoxy (20,12);write(’F) in de travail’); 
gotoxy (23,14) ;write(’choix : ’);choix:=readkey;write (upcase (choix) ); 
case upcase(choix) of 


?C’ :begin 
cardillage; creer dessin 
end; 
’L’:begin 
gotoxy (20,20) ;write(’Nom du dessin: ’); 
readin (nomf) ;affiche dessin (nomf) ;choix:=readkey;window(1,1,80,25) 
end; ù 
‘begin 
gotoxy (20,20);write(’Nom du dessin: ’);readiln (nomf) ; 
affiche dessin(nomf);creer dessin 
end; 
‘begin 
gotoxy (20,20) ;write(’Nom du dessin : ’);readiln(nomf); 
dessin Graph (nomf) 
end: 
end; 
until upcase(choix)=’F’;clrscr 
end. 


[ Flèches ] : déplacement / [ Esp ] : dessine / [ Esc ] : pour arrêter 


GESTION D'IMPRIMANTE 
EN TURBO PASCAL 


Existe-t-il un moyen de connaître l'état d'une imprimante (présence ou 


absence, imprimante prête ou non , … ) ? 


La réponse à cette question est complexe , 
en Turbo Pascal il est possible de gérer 
les erreurs d'exécution et par. la même de 


récupérer les erreurs survenues à 


l'impression. Il n'existe malheureusement 
que deux codes d'erreurs renvoyés par la 
variable loResult concernant l'imprimante, 
159 : détection fin de papier et 160 : 
erreur d'écriture sur un périphérique. Le 
contrôle de ces erreurs ( répertoriées 
erreurs critiques dans le manuel de 
référence de Turbo Pascal ) passe 
obligatoirement par les procédures 
standard write(lst,xxx) et writeln(Ist,xxx). 


Une suite d'instruction du type : 


{$l-}(* désactivation du contrôle 
par turbo pascal *) 
writeln(lst,xxx); (* écriture sur 
l'imprimante *) 

{$l+} (* réactivation du contrôle 
automatique *) 


erreur_acces:=ioresult; (* récupération du : 
| code retour “) 


if erreur_acces<>0 then writeln('erreur 
imprimante :',erreur_acces); 

permet de récupérer l'erreur d'exécution 
si celle-ci se produit. 


| Ce type de contrôle n'est pas satisfaisant 


pour plusieurs raisons : - le contrôle ne 
s'effectue qu'à posteriori, c'est à dire 
après envoi d'un ou d'une suite de 
caractères sur l'imprimante. - il existe un 
cas où le programme reste ‘bloqué’ en 
attente de démarrage du périphérique, 
c'est le cas typique où l'imprimante est 
alimentée mais non prête ( laissant tout 
lieu de croire à une boucle infinie ou à un 
‘plantage’ du programme ). - Dans le cas 
où l'imprimante n'est pas alimentée le 
programme se déroule correctement, 
l'impression s'effectuant dans le vide. 

Une autre solution passe par l'utilisation 
d'une routine d'interruption du BIOS, la 
gestion de l'imprimante est en effet gérée 
par l'interruption 17H ( H pour 
hexadécimal ) . Cette routine est capable 
de prendre en compte la présence d'au 
maximum 3 cartes d'interface parallèle, 
soit 3 imprimantes différentes, le tableau 
n°3 donne toutes les fonctions 
accessibles . 


tableau n° 1 ( récapitulatif des octets renvoyés par l'interruption 17H ) : 


NEC EPSON OLIVETTI OKI microline 
P 2200 LX 800 DM 100 294 


plus de papier 


allumé, non prète 


pas d'imprimante 


En consultant ce tableau, on constate que 
cette routine possède 3 fonctions : - la 
fonction n° O dont le travail consiste à 
effectuer l'impression du caractère 
contenu dans le registre AL. - la fonction 
n° 1 qui a la charge de l'initialisation du 
périphérique de sortie. - la fonction n°2 
qui permet de lire l'état de l'imprimante. 
Grâce à cette interruption il est possible 
d'interroger l'imprimante et de récupérer 
l'état de celle-ci sans avoir besoin 
d'envoyer un caractère. Le turbo pascal 
possède une instruction ( IntR contenue 
dans l'unité standard DOS ) qui autorise 
l'exécution d'une routine d'interruption. 
Dans le cas qui nous intéresse, il s'agit de 
la routine 17H et de sa fonction n°2 appel 
. Le résultat de l'exécution est ensuite 
récupéré dans le registre AH, celui-ci est 
constitué d'un octet qui représente l'état 
de l'imprimante. 


La signification des différents bits de 
l'octet est donnée par le tableau n°4. 

Le programme INT17H.PAS fourni un 
exemple d'utilisation de l'interruption 17h 
via la procédure standard IntR. 

Cette solution répond-elle à notre attente ? 

L'expérience en informatique aidant, 
l'auteur a voulu vérifier que les codes 
retournés correspondaient bien à ce qu'ils 
devaient être quel que soit l'ordinateur et 
quel que soit l'imprimante. La logique 
voudrait que pour une imprimante 
parallèle compatible PC, l'octet d'état 
renvoyé par celle-ci soit identique. 


RE AE Re 
JE A Ci MR OU 
ae amer Qu fus [ue | ou 
mile L'aute 


Comme le lecteur pourra le constater ( 
tableau n°1 ), il n'en est rien du moins en 
ce qui concerne les quatre modèles que 
l'auteur a pu tester. Selon la marque et le 
modèle d'imprimante l'octet renvoyé par 
l'interruption 17H pour un état donné est 
différent, la seule constante (pour ces 4 
modèles) est le code 144 qui indique que 
l'imprimante existe et qu'elle est prête à 
imprimer. Il est à noter que parmi tous les 
modèles testés, il en est un ( l'Olivetti 
DM100 ) qui ne retourne que deux types 
de codes, qui plus est les états : prêt, 
plus de papier et non prête sont 
considérés comme identiques ( code 
1441). 


Au vu de ces résultats, il est maintenant 
facile d'expliquer pourquoi dans les 
logiciels commerciaux un problème 
imprimante se traduit par Un message 
aussi peu explicite que : imprimante non 
prête ou device PRN error. 


L'écriture d'une routine permettant de 
tester l'imprimante devient par 
conséquent problématique, il parait 
difficile de réaliser une fonction 
“universelle” sauf peut être en ce qui 
concerne l'état ‘Ready'; un exemple de 
gestion est donné par le programme 
TESTIMP.PAS pour l'imprimante NEC 
P2200, le lecteur devra donc l'adapter à 
son propre modèle. 


Eric Servagnat 


tableau n° 2 (signification des octets renvoyés par l'interruption 17H “J 


= FAN 1: GEO 0 0 0 0 1 0 0 0 not ready 

24 ( 18H ) 0 0 0 21 1 0 0 0 not ready 
MUR 0 LE :@- 0: D) plus ds papier 

48 ( 30H ) 0 0 1 1 0 0 0 0 éteinte 

56 ( 38H ) 0 0 1 1 1 0 0 0 plus de papier 

144 ( 90H ) 1 0 0 1 0 0 e) 0 ok 

176 ( BOH ) 1 0 1 1 0 0 0 0 pas d'imprimante 
192 ( COE ) 1 L 0 0 0 0 0 0 imprimante éteinte 
200 ( C8H ) 1 1 0 0 1 0 0 0 imprimante éteinte 


a a (] s I i t 
È È de î “, : ES tableau n° 4 ( signification de l'octet d'état) : 
a e F t QU TE TRS MT TRE REP RTS NE Ne Re nee ES 
b ° (] c L 
D nue 
S | â : je : ë : i=not busy 0 = busy 
: È . “ 1=acknowledge 
= 


BRL 

BECET 

BEN TT MN 
LI ne 
Fa lee a 
MRC BC Ep 
ere leo 
Pts on 


tableau n°3 ( fonctions de l' interruption 17H de gestion de l'imprimante ) : 


impression du caractère contenu dans AL sur l'imprimante dont 
le numéro est chargé dans DX ( 0, 1 ou 2) 


En sortie : 
AH = 1 -> le caractère n'a pus être er correctement 
( causé par un TIME OUT ) 


Ah <> 1 -> code retour de l'état de l'imprimante 


initialise la sortie imprimante dont le numéro est chargé dans 
DX, en sortie obtention de l'état de l'imprimante dans AH 


Lecture de l'état de l'imprimante dont le numéro est chargé dans 
le registre DX, en sortie état de l'imprimante dans AH 


Program INT17H; 
{ 
Auteur : SERVAGNAT Eric 


} 
Uses Crt,Dos; 


Var ; 

Regs : Registers; 
Code retour : byte; 
bidon : char; 


{ fonction retournant un chaine contenant le nombre transformé en binaire } 
Function DecBin (nombre :integer) : string; 


var ) 
chaine : string; 
i : byte; 

begin 


chaine:="”; 
repeat 
if odd(nombre) 
then chaine:=’1'’+chaine 
else chaine:=’0’+chaine; 
nombre:= nombre div 2; 
until nombre = 0; 
for i:=length(chaine) to 7 do chaine:='0’+chaine; 
decbin:=chaine; 


end; { fin de decbin } 


{ procédure effectuant un remise à blanc des registres } 


procedure Efface Reg; 

begin 

with regs do 
begin à 
cas Robe mr D ee und en PAL 
end; 

end; 


Function Interroge Imprimante : byte; 
begin 

Efface Reg; 

Regs.AH:=2; { appel de la fonction n° 2 } 

IntR($17,Regs); { éxécution de la routine d'interruption 17H } 
D TE ie Re { récupération du code d'état } 
end; 


begin 
Lo pro code retour imprimante : ‘,Interroge Imprimante:3,'’ en décimal 
writeln; 
writeln(’soit en binaire . ‘,DecBin(Interroge Imprimante) ); 
writeln; 
bidon :=readkey; 

end. 


Program TESTIMP; 
{ 
Auteur : SERVAGNAT Eric 


} 
Uses Crt,Dos; 


Const 
Plus de Papier = 40; { 56 PouE une EPS0N 50e 
Rae = 200; { 192 
Imp_o = 144; { 144 * 
1e Es \ prete = 8; { 24 
Imp_inexistante = 176; { 176 


tab etat : array[0..5] of string[22] = (’imprimante ok 
‘imprimante eteintea 
‘plus de papier 
‘imprimante non prète 7 
‘imprimante inexistante’, 
‘erreur non repertoriée’ ); 


Var 
regs : Registers; 
erreur _imp : byte; 


{ procédure effectuant un remise à blanc des registres } 


Procedure Efface Reg; 

begin 

with regs do 
begin 
ax:=0;bx:=0;cx:=0;dx:=0;bp:=0;si:=0;di:=0;d#:=0;es:=0; 
end; 

end; 


Function Imprimante ok : boolean; 
begin 
Efface reg; 
erreur _imp:=5; 
Regs.AH:=2; { appel de la fonction n° 2 } 
IntR($17,Regs); { éxécution de la routine d'interruption 17H } 
case Regs.AH of 
Imp_ok erreur_imp:=0; 
Imp eteinte erreur _imp:=1; 
Plus de papier erreur _imp:=2; 
Imp_non \_ prete erreur _imp:=3; 
Imp_inexistante : erreur imp:=4; 
end; { du case } 
if Regs.ah=imp ok then imprimante ok:=true else Apr anteL ok:=false; 
end; 


begin 
clrscr; 


writeln(’attention ,; ce qui suit n’est valade que pour une NEC P2200'): 
writeln; 


if not Imprimante ok then writeln(tab etat [erreur _imp]) 
else writeln (tab etat [erreur : _imp]); 


FAECAIL 


UN MENU DANS UN 
FICHIER BAT 


Il s'agit de gérer un menu à l'intérieur d'un fichier BAT. 
Ceci est réalisé grace à l'utilisation de l'instruction IF ERRORLEVEL N 
GOTO LABEL, où N est un code de sortie généré par un autre programme. 


Ce programme est écrit en Turbo-Pascal 
v4, le code de sortie est passé en para- 
mètre de la procédure HALT. Les pro- 
grammes MENU.BAT et MENUA.PAS 
donnent un exemple de ce qui peut être 
réalisé.lls sont adaptables aisément pour 
d'autres traitements. 


PROGRAMME MENUA 


La constante RET sert à l'affichage d'une 
flèche à la queue pliée symbolisant la 
touche RETOUR CHARIOT. Le tableau de 
constantes AFF contient les différentes 
options qui seront affichées par le menu. 


PROGRAM MENUA’; 
USES 


Crt, 
Dos; 


CONST 


VAR 


sel,ancsel:byte; 
code :integer; 
reg:registers; 


Var att:byte; 


Begin 
att:=textattr; 
textcolor (coulcar) ; 
textbackground (coulfond) ; 
gotoxy (x, y) ; 
write (ch); 

textattr:=att; 


PROCEDURE Ecrit (x,y:byte;ch:string;coulfond, coulcar:byte) ; 


Celui-ci est adaptable selon les besoins. 


La procédure Ecrit(x,y:byte;ch:string;coul- 
fond,coulcar:byte) sert à afficher à la 
colonne x et à la ligne y la chaîne ch avec 
les couleurs coulfond pour le fond et coul- 
car pour le texte. Les couleurs initiales 
sont restituées grâce à la variable TEX- 
TATTR sauvegardée au début de la pro- 
cédure dans la variable ATT et restaurée 
à la fin. La procédure Curs(etat:bool) fait 
disparaître le curseur si état=0 et le resti- 
tue si état=1. Îl s'agit d'un appel à l'inter- 
ruption 16. La procédure Inkey attend la 


: frappe d'un caractère au clavier et retour- 


ne dans la variable code le code ASCII 
de ce caractère, ou le code étendu+256 


ret=#17#196#217; 

aff:array[1..5] of string[19]=( BASIC Fr 

» DBASE TR MULTIPLAN M RETOUR AU DOS 
TYPE 

bool=0..1; 


s'il s'agit d'une touche spéciale: HOME, 
PgDn etc. 

La FUNCTION Affich(y:byte):byte conver- 
tit la valeur y de la ligne d'affichage en 
une valeur pouvant être exploitée en indi- 
ce par AFF. Sert également pour générer 
le code de sortie. 

La procédure Affichage fait apparaître le 
menu à l'écran grâce aux constantes du 
tableau AFF.Une barre en bas donne les 
touches à utiliser. 

La procédure Edite permet le déplace- 
ment d'une barre à fond bleu sur les diffé- 
rentes options du menu par utilisation des 
touches ‘flèches en haut”, "flèches en 
bas”, "Home"(ou "PgUp'), "End(ou “PgDn'). 
La touche retour valide le choix. 


PROGRAMME MENU.BAT 


Ce fichier est simple.ll faut faire attention à 
mettre les IF ERRORLEVEL N par ordre 
décroissant car le test est inférieur ou 
égal. 

Claude RAYMOND 


PROCEDURE Curs (etat :bool) ; 


Var cursouinon:integer; 


Begin 
case etat of 
l:cursouinon:=$0607; 
0:cursouinon:=$0B07; 
end; 
reg.ah:=1; 
reg.cx:=cursouinon; 
intr (16, reg) : 


ECHO OFF 
:DEBUT 
MENUA 


PROCEDURE Inkey; 
char; 


Var ch: 


Begin 
. ch:=readkey; 
if not ((ch=#0) and keypressed) 
then code:=ord (ch) 
else 
begin 
ch:=readkey; 
code :=256+ord (ch) ; 
end; 


GOTO DEBUT 
:ET2 
CD\PAS 
TURBO 

CD\ 

GOTO DEBUT 


End; 


FUNCTION Affich(y:byte) :byte; 


Begin 
. affich:=(y-8) div 2+1; 
End; 


GOTO DEBUT 
:ET4 


PROCEDURE Affichage; 
Var i:byte; 


Begin 

ecrit (36,4,'ME N U’,0,14); 
ecrit (36,5, rO7L4)? 
for i:=1 to 5 do ecrit (31, (i-1)*2+8,aff[i],0,14); 

ecrit(6,25,’ TOUCHES: ‘+chr(24)+' ‘+chr(25)+ + 

‘ PgUp PgDn Home End VALIDATION: ‘+ret+’ Netr A) 


End; 


PROCEDURE Edite; 


Begin 
x sael:=8;ancsel:=8; 
curs (0); 
repeat 
ecrit (31,ancsel,aff{[affich(ancsel)],0,14); 
ecrit (31,sel,aff[affich(sel)],1,14); 
ancsel:=sel; 
inkey; 
case code of 
_336:bagin sel:=seal+2;if se1>16 then sel:=8;end; 
328:begin sel:=sel-2;if sel<8 then sel:=-16; end; 
327,329:se1:=8; 
335,337:sel:=16; 
end; : 
until code=13; 
curs (1); 


12 


BEGIN 
lielrscr: 

affichage; 

edite; 

clrscr; 

halt (affich(sel) ); 


IF ERRORLEVEL 5 GOTO FIN 
IF ERRORLEVEL 4 GOTO ETA4 
IF ERRORLEVEL 3 GOTO ET3 
IF ERRORLEVEL 2 GOTO ET2 
IF ERRORLEVEL 1 GOTO ET1 


CD\MP 

MP 

CD\ 

GOTO DEBUT 
:ET2 
CD\PAS 
TURBO 

CD\ 

GOTO DEBUT 
:FIN 


ASC AL 
ENVOI DE CARACTERES 


_ DE CONTROLE 
À UNE IMPRIMANTE 


Certaines imprimantes possèdent un jeu réduit de boutons qui limite le Le programme créera un fichier de com- 
ER AD RRQ OP RUES mande à vos spécifications où vous 
nombre de fonctions atteintes manuellement. Ce programme vous per-  entasserez les codes de contrôles en 
ee ne I UN Forte hexadécimal. On sort de ce programme 
met d'envoyer simplement tous les codes que vous désirez. par appui sur la touche Escape. 


Stephane Perroy. 


program EchoFiles; 


Uses 
Dos,Crt; 


Var 


unite :String [31: 
x:char; 


à Fichier : File Of Char; 
procedure BatchFilesDir; touche, Sp : Chas: 
Nom *”SCring [12]; 
c g 
mu = 50: Mot : String [10]; 
I,nb,erreur,Code,n : Integer; 


Tableau = Array [1..Maxi] Of String [12]; 
Var in 

Fichiers : Tableau; beg 

Fichier : SearchRec; ee :=True; 

Nom 5 Stri 12]; 

TJ ae à GotoXY (1, 20) ; 

En write (’ Nom du fichier à créer : 1e 

begin GotoXY (26,20); 


for I:=1 to Maxi do fichiers[Il]:="”; 
FindFirst (unite+’ *.BAT'’ ,AnyFile,Fichier); 
while DosError=0 do 
begin 
I:=1; 
while (Fichiers[I]<Fichier.Name) And (Fichiers[I]<>”) do 
Inc(I): 
for J:=Maxi-1 DownTo I do 
Fichiers[J+1]:=Fichiers[J]; 
Fichiers[I]:=Fichier.Name; 


FindNext (Fichier); nb:=0; 
end; nom:=”; 
CirSer; repeat 
GotoXY (40,1); repeat 


writeln(’FICHIERS D”’IMPRESSION BATCH’ ); touche : =UpCase (ReadKey) ; 


writeln; until touche in [#13,#27,'A'..'Z',"0".."9"]; 
writeln (’ Directory :’); if touche in [’A'../2Z','0’..9"] then begin 
writeln; write (touche); 
for I:=1 to 10 do nb:=nb+1; 
begin Nom:=Nom+touche; 
for J:=1 to 5 do end 
begin else if touche=#27 then begin 
‘Nom:=Fichiers[(J-1)*10+I]; if nb=0 then begin 
GotoXY ((J-1)*15, WhereY) ; CreeFichier:=False; 
write (copy (Nom,1,pos(’:’,Nom)-1)); exit; 
end; end; 
writeln; nb:=0; 
end: : nom:=”; 
end; 


function CreeFichier : Boolean; 


GotoXY (26,20); 
write (’ à Ÿ- 
GotoXY (26,20); 
end: 
until (touche=#13) or (nb=8); 
Nom:=Nom+’ .BAT' ; 
Lt (Fichier,unite+nom) ; 
{$I-} 
ReSet (Fichier); 
{$I+} 
touche:='0"; 
erreur :=I10Result; : 
if erreur<>2 then if erreur<>5 then begin 
GotoXY (1,22); 


repeat 
touche : =UpCase (ReadKey) ; 
until touche in [’0’,’N']; 
write (touche) ; 
GotoXY (1,22); 
write (’ 
end 
else begin 
GotoXY (1,22); 


readin; 
GotoXY (1,22); 
write (’ 
touche:=’N'; 
‘end; 
{$I-} 
Close (Fichier); 
{$I+} 
erreur:=I10Result; 
until touche=" 0’; 
Assign(fichier,unite+nom) ; 
ReWrite (fichier); 
Mot :=’ ECHO OFF’ +#13+#10; 
Sp =! 3 
GotoxY (1,22); 
writeln('’ECHO OFF'); 
write (‘ECHO ‘); 
for I:=1 to 10 do 
write (Fichier,Mot[I]); 


1f ParamCount>1 then begin 
writeln(’Nombre de paramètres incorrect 


writeln('Syntaxe : printer <drive>' 
halt; ÿ 

end; 

1f ParamCount=0 then unite:=” 

else begin 


1£f (ParamStr(l)='A:') or (ParamStr(l)='B: 
(ParamStr(l)='a:") or (ParamStr(l)='b:') 
else begin 
writeln('Unité de drive incorrect !'); 
halt; 
end; 
end; 
repeat 
BatchFilesDir; 
until not CreeFichier; 
CirSer: 
writeln('’Programme Terminé.’ ); 


write (’Le Fichier existe déja. Ecrasement du fichier (O/N) : ? ‘); 


write (‘Ouverture du fichier impossible (READ ONIY). Tapez ENTER." ); 


for I:=1 to 4 do write (chr (Code) ) ; 
write (Fichier,Mot[I]); end; 
write (Fichier, Sp); x:=chr (Code) ; 
GotoXY (1,25); write (Fichier,x); 
write (‘Code n°’); nb:=nb+1; : 
nb:=1; end; 
repeat - until touche=#27; 
GotoXY (8,25); Mot :=’ >PRN'+#13+#10; 
write(nb,' : *,#8,#8); for I:=1 to 4 do 
Code:=0; write (Fichier,Mot[I]); 
I:=16; Close (Fichier); 
repeat 


‘); 


repeat ; 
touche : =UpCase (ReadKey) ; 
until touchein ["0"--19"""20.7""p,2#271; 
1f touche<>#27 then begin 
If touche in [’A’..'F’] Then n:=10+Ord(touche)-Ord(’A') 
Else n:=O0rd(touche)-Ord('0'); 
Code :=Code+n*I; 
write (touche) ; 
end; 
I:=1-15; 
until (I<0) Or (touche=#27); 
if touche<>#27 then begin 
1f (Code<>8) And (Code<>13) then begin 
GotoXY (5+nb, 23); 


WE 


); 


‘) or (ParamStr(l)='C:') or 
or (ParamStr(l)}='c:') then unite:=ParamStr(l) 


BAT 


GESTION BANCAIRE 


Même si le sujet n'est pas d'une folle excitation, il reste parfois utile 


de gérer ses flux financiers. 


D'autant que le programme peut 
s'adapter à d'autres besoins et remanier à 
loisir car il est écrit en Basic sans finesse 
incompréhensible. 


Le programme comporte cinq 
fonctions. 


La création du fichier que l'on effectue 
une fois pour toutes. La mise à jour où l'on 
comptabilise les flux entrées et sorties 
encompte coufant ou en dépôt. La 
suppression d'un mouvement par 
sonnuméro. La visualisation du fichier par 
mois et type de compte. 

C'est là qu'apparaît aussi le numéro de 
mouvement. L'impressiondu fichier. Le 
fichier contenant les mouvements est sur 
le lecteur par défaut. 

Attention le programme comporte une 
instruction qui appelle la fonction ATTRIB 
du DOS par un Shell. Il est bon de 
recopier ce fichier sur votre disquette. Ce 
fichier permet de modifier les attributs des 
fichiers (Read-only, Hidden, etc). C'est un 
bonexemple de son utilisation. 


100 WIDTH BU:CLÉAR:KEY UFF 
Liu ON ERKUR GUIU 2780 


15U ÉSSAÏ=Ù 
1oûÙ CULUR 3,Ù 

170 CLS :6USUB 2560: COLOK Z,U:LUUAÏE 4,24: FRINI 
"WsSIILUN BANUAL RE" :COLOR 3,0 

180 LOCATE 10,30:PRINT "CODE D'ACCES :":COLOR 0,7 
190 LOCATE 10,45:LINE INPUT CODES :COLOR 3,0 

200 IF CODES="" THEN 295 

210 IF CODES="KILROY" OR CODES="kilroy" THEN 360 
220 COLOR 31,9:BSSAI=ESSAI#1 


240 FOR T=i TO 2500:NBIT T 

250 IF BSSAI=3 THBN 269 BLSE 170 
260 CLS:COLOR 31,9 

270 LOCATE 10,27:PRINT *)) 
280 LOCATE 12,32:PRINT ")) 
290 GOTO 290 


IDENTIFICATION INCORRECTE 
CLAVIER BLOQUE ((" 


230 LOCATE 10,45:PRINT "ACCES REFUSE":PRINT CHR$(7):COLOR 3,0 


Vous trouverez de même une illustration 
de l'emploi des touches de fonction ainsi 
que le traitement des erreurs. 


Roland Lopez 


205 LOCRTR RP AT To ne 


300 Locr 20,7:PRINT “| Pour utiliser ce logiciel il faut connaitre le code d 
'acces : 

310 es 21,7:PRINT ‘| Véuillez par consequent entrer ce code personnel S.V.P, 
.. Kerci l 

315 LOCATÉ 22,7:PRINT “t 


en |] 


320 GOTO 180 


360 KEY 1,"C":KEY 2," M":KEY 3,"S":REY 4," V":REY 5,"I":REY 6,"Q" 
370 KEY 9,"C":KEY 10,"D":KEY 7,"F" 
375 GOSUB 3600 


410 CLS:GOSUB 2560:COLOR 2,0:LOCATE 2,26:PRINT "M E N U 
OR 3,0 

415 LOCATE 9,4:PRINT * " 

420 LOCATE 10,4:PRINT « [rs Jraccurs 10,11:PRINT "Creation d'un fichier" 
422 LOCATE 11,4:PRINT * à 


PRINCIPAL":COL 


425 LOCATE 9,49:PRINT " à 
430 LOCATE 10,49:PRINT " Ur J'socurs 10,56:PRINT "Visualiser un fichier" 
432 LOCATE 11,49:PRINT * É 

435 LOCATE 13,4:PRINT : 
440 LOCATE 14,4:PRINT " 
442 LOCATE 15,4:PRINT 


[re J'socun 14,11:PRINT "Mise a jour d'un fichier" 


445 LOCATE 13,49:PRINT " Ë 
50 LOCATE 14,49:PRINT «Les J'uscurs 14,56:PRINT “Imprimer un fichier" 
452 LOCATE 15,49:PRINT " 


455 LOCATE 17,4:PRINT " E 
460 LOCATE 18,4:PRINT «(es J'aurs 18,11:PRINT "Suppression d'une action" 
462 LOCATE 19,4:PRINT * d 

465 LOCATE 17,49:PRINT " : 

470 LOCATE 18,49:PRINT «Le J'accurs 18,56:PRINT "Quitter" 

472 LOCATE 19,49:PRINT f 

480 IS$=INKBYS 

490 IF I$="C" OR I$="c" THEN 590 

500 IF I$="M" OR I$="m" THEN 830 

510 IF I$="S" OR I$="s" THEN 1400 

520 IF I$="V" OR I$="v" THEN 1820 

530 IF I$="1" OR I$="i" THEN 2090 

540 IP I$="Q" OR I$="q" THEN COLOR 15,0:CLS:END 

550 GOTO 480 

560 " 
570 
580 
590 NE=0:CLS:60SUB 2560:COL0R 2,0:LOCATE 2,31:PRINT "C RE A T I 0 N":COLOR 3,0 
600 GOSUB 2620 

610 LOCATE 15,31:PRINT "CREDIT :":LOCATE 15,51:PRINT ‘F" 

620 COLOR 0,7 

630 LOCATE 10,13:LINE INPUT MOIS$ 

535 IF MOIS$="" THEN COLOR 3,0:60T0 410 

640 IF LEN(MOIS$)(3 OR LEN(MOIS$)>9 THEN PRINT CHR$S(7):LOCATE 10,13:PRINT " 
":60T0 630 

LOCATE 10,43:LINE INPUT ANNEES 


{€ 


650 


Suite page 54 


En effet les largeurs de colonnes à 
retoucher fréquemment, le tracé des traits 
horizontaux et verticaux, les valeurs 
| numériques à ‘aligner', les tableaux qui 
| deviennent trop larges, constituent une 
| rude épreuve pour les nerfs. Or 
paradoxalement il n'existe pas de logiciels 
pour cela ; si ce n'est les dernières 
versions de Sprint, Word et WordPerfect 
qui facilitent ce problème. 


PRESENTATION DU PROGRAMME 
"TABLIC". 


Le rôle de ce logiciel est d'imprimer des 
tableaux dont les valeurs ont été entrées 
au clavier. 

A l'inverse des logiciels du commerce 
que l'on doit apprendre, ici c'est le 


programmeur qui a dû apprendre les 


voeux des utilisateurs. Un exemple, on 
part toujours d'un original manuscrit et 
souvent plein de ratures et surcharges : 
| De ce fait on peut oublier une ligne, ou 
bien l'écrire deux fois de suite, mais il est 
| impossible de se tromper sur le nombre 
| de colonnes ; donc pas de correction de 
| ce nombre. En revanche beaucoup 
d'exigences et de souplesse pour ce qui 
concerne la présentation finale de 
| l'impression. Bref un outil de bureautique 
et non un de ces jouets à mille facettes. 

| Ce n'est pas un tableur. Les "cases" du 
| tableau sont saisies une à une, par ligne 
| et par colonne. C'est le programme qui 
| calcule les largeurs de colonnes, qui trace 
| les traits, qui assure les diverses 
“justifications" et la taille des caractères. 
| En somme «entrez les contenus des 
| cases, je me charge du reste». 

- Le titre (facultatif) est auto-centré au 
dessus du tableau. - Les légendes de 
colonnes sont centrées. - Les contenus 
| des colonnes "texte" sont alignés à 
gauche. - Les contenus des colonnes 
"nombres" sont justifiés à droite et sur la 
position du point décimal. - Les traits 
(caractères graphiques) peuvent être 
simples, doubles ou remplacés par des 
blancs. - Insertion de lignes de 
séparations : ligne vide ou trait horizontal. 
| - Centrage facultatif de l'ensemble du 


tableau. - Toute correction provoque le 
recalcul des largeurs de chacune des 
colonnes. - Choix de la largeur du papier. 
Exemple «normale en caractères 
condensés ou à l'italienne en caractères 
pica ». - Possibilité d'i imprimer une 
version ‘du tableau où colonnes et lignes 
sont numérotées ; pour mieux identifier 
les cases à corriger. - Sauvegarde 
uniquement sur disquette, ce pour la 
portabilité sur un poste équipé d'une 
imprimante à chariot large ou d'une laser 
configurée en mode “Landscape”. - La 
sauvegarde fabrique deux fichiers : un 
* VAL (valeurs saisies) lisible seulement 
par TABLIC, et un “.TAB qui est la 
représentation ASCII du tableau imprimé. 
Ce dernier peut donc être visionné ou 
imprimé à partir du DOS, exemple TYPE 
A:TOTO.TAB>PRN - Ce fichier .TAB peut 
donc être appelé pour insertion à partir 
d'un traitement de texte. Exemple avec 
WORD : ‘Lit écrit” "Fusionne” a:toto.tab - 
Possibilité de sauvegarder un *.TAB sans 
les traits graphiques; afin qu'un 


informaticien puisse récupérer ces 


colonnes de nombres dans un logiciel 
graphique ou un tableur. - Le programme 
est écrit en GWBASIC (15 kilos octets) 
mais compilable ; c'est même vivement 
recommandé afin de gagner en mémoire 
disponible. 

Et maintenant LA lacune : Si le bandeau 
des légendes de colonnes peut 
comporter plusieurs lignes, il ne peut y 
avoir de légendes arborescentes ; c'est à 
dire de colonnes larges se divisant plus 
bas en plusieurs plus petites. Il est plus 
facile et plus clair de rajouter cé «chapô» 
sous traitement de texte. 

Nous pouvons dès lors passer au mode 
d'emploi : 


LE MENU PRINCIPAL. 


Six options : 

N = nouveau tableau : définitions et saisie 
des valeurs. S = correction de valeurs 
entrées ou ajouts, suppressions de lignes. 
| = impression. S = sauvegarde sur une 
disquette formatée dans A: R = recharger 
un ancien fichier tableau depuis A: Q = 
Sn le ob ic 


EE TC 


UN GENERATEUR DE 
TABLEAUX 


Si vous demandez à des dactylos ou secrétaires quelle est leur 
hantise, la plupart vous répondrons «les tableaux !». 


On demande d'abord le titre à placer au 
dessus du tableau ; c'est facultatif. 
Ensuite, nombre de colonnes : Attention ! 
Cette valeur ne sera plus modifiable par 
la suite. 

Nombre de lignes de légendes ; minimum 
une... Ces lignes ont un statut à part : 
Leurs contenus sont centrés 
automatiquement dans les "cellules" et un 
trait continu sera généré sous elles. Très 
souvent la deuxième ligne de légendes 
est prévue pour y inscrire les unités ( F 
HT, g/cm’, etc...) 


Questionnaire sur les légendes : colonne 
par colonne on demande leur NATURE, Si 
c'est du texte répondre T (ou t), pour des 
nombres mettez seulement le nombre de 
décimales souhaitées, de 0 à 6. Ces 
options sont rappelées à l'écran. Elles 
sont modifiables en cas d'erreur. Puis 
vous devrez entrer les légendes 
proprement dites, par colonne puis par 
ligne. Pour une "case" vide tapez 
seulement ENTER. 


Saisie des valeurs : Afin d'éviter les 
erreurs l'écran affiche le N° de ligne, le N° 
de colonne et la ou les légendes de cette 
colonne. QUATRE OPTIONS sont 
accessibles, seulement en colonne N°1: 

- T (ou t) : cette ligne sera un trait 
horizontal de séparation. - = cette ligne 
sera vide (une séparation). - E (ou e) pour 
“erreur”: On peut retaper alors la ligne 
précédente. - Q (ou q) pour quitter la 
saisie, ne serait-ce que pour une 
sauvegarde avant de poursuivre la saisie. 
NOTA : Si l'un de ces caractères est suivi 
ou précédé d'un espace il ne sera pas 
considéré comme option. 

Sitôt la fin de la saisie TABLIC commence 
ses calculs : Pour chaque colonne il 
recherche l'élément le plus long pour 
établir les largeurs réelles. (Il laisse un 
espace de chaque côté pour ne pas 
"coller" aux traits verticaux). Puis il calcule 
les tabulations et la largeur totale "hors 
tout". Si celle-ci dépasse 132 caractères 
vous en serez avisé, avec le choix de 
corriger ou de maintenir. 

Le corrigé vous permet de modifier le 
titre, les légendes (et leur « nature » ) et 
les contenus des cases’ du tableau. Un 
menu propose alors la suppression ou 
l'insertion de ligne, la "reprise" de toute 
une ligne, ou d'une case déterminée. 
Vous devez entrer les N° de colonne et de 


ENS 


ligne. L'écran affiche alors la légende de 
la colonne, le contenu de la colonne N°1 
de cette ligne et le contenu actuel de la 
"cellule" (ou case”) concernée. Tapez la 
correction, ou un “ENTER à vide” qui 
laissera l'ancienne valeur. Pour effacer le 
contenu d'une case TAPEZ ESPACE et 
ENTER. 

| En fin de correction (toujours Q ou q pour 
quitter) le logiciel reprend tous ses calculs 
à zéro. (c'est très rapide...). 

Petit rappel, pour ajouter des lignes (suite 
de saisie) il faut repasser par menu, puis 
option corriger, laquelle vous propose 
alors Correction ou Suite de saisie. 


LES COLONNES de VALEURS 
NUMERIQUES. 


Si à la rubrique Légendes une colonne a 
été définie par exemple avec «nature = 
| 2», tous les nombres y seront imprimés 
| avec 2 décimales. Ainsi O 23 34.5 
| 45.678 donneront respectivement 0.00 
| 23.00 34.50 45.68. Quelques remarques : 
| -La valeur est arrondie sur le dernier 
| chiffre (45.678-->45.68) mais la väleur 
tapée sera néanmoins sauvegardée. -Les 
nombres décimaux utilisent le 
| POINT.(virgule ignorée) -Bien sûr les 
| nombres sont présentés "alignés". (à 
droite) -Dans une colonne de nature 
numérique on peut taper du texte ; mais il 
sera ‘justifié à gauche”. Un "ENTER à 
vide" laissera la cellule vide. 


L'EDITION SUR IMPRIMANTE. 


Selon la largeur du tableau, TABLIC 


RO 
202 


40 ON ERROR GOTO 64000 


50 FOR I=11 TO 14:KEY(I) 
00 


T 
1000 MENU 


D LL 


1040 
BOTOTEMSA MTS PAS BEA MT 


DIM en 2070 ou 12125 
; PUS$=formats PRINT USING ; 

200 ’ codes des caractères graphiques pour traits 

210 DATA 218,191,192,217,179,196,195,180,194,193,197 

229 DATA 201,187,200,188, 186,205, 204,185, 203, 202,206 

LSCADALA 02/32 227 32} 97, 232,32, 32;32%42,3? 

240 FOR N=1 TO 3:READ A(N),B(N),C(N),D(N),E(N),F(N),G(N),H(N),I(N),J(N),K(N):NEX 


cr 


commande les tailles PICA, ELITE ou 
CONDENSE, mais pas avec les 
imprimantes LASER dépourvues 
d'émulation "EPSON FX". Si la largeur 
dépasse 78 caractères l'écran vous 
propose l'impression à l'Italienne (papier 
dans le sens longueur). 

Les options "caractères renforcés" ou 
“qualité courrier” (NLQ, ROMAN) pourront 
être préalablement fixées par les touches 
de l'imprimante. Surtout pas 
d'espacement proportionnel ! (PS) 

Au lancement de l'impression vous 
disposez de plusieurs options : “|” 
impression normale sans centrage ; "L" 
idem mais avec numérotation des lignes 
et colonnes (pour modifier) ; "C' pour le 
centrage horizontal du tableau sur le 
papier. Ensuite le choix des traits, 
simples, doubles ou sans. 


LA SAUVEGARDE du TABLEAU. 


Elle est facultative, mais conseillée. Et 
même rappelée si vous quittez le logiciel 
sans l'avoir faite. Ne pas donner de nom 
d'extension, à cause des VAL et .TAB. 
Même si vous avez imprimé avec 
centrage, le fichier .TAB n'aura pas de 
blancs à sa gauche, car ils seraient très 
gênants en cas de fusion dans un 
traitement de texte. 


LE PROGRAMME BASIC. 


Nous ne ferons pas de description 
détaillée, car les REM sont nombreux, 
mais des explications sur certains détails. 
- 4240 : PUS est un format pour imprimer 


TABLIC - Edition automatique de tableaux - Michel Archambault - 21/02/89 
directement compilable par TURBO BASIC de BORLAND 
30 DEFINT A-Z:KEY OFF:OPTION BASE O 


ON:NEXT:”’neutralise touches curseur 
: NC$=Natures des Colonnes ; 


TV=Tabulations verticales 


1010 DATA "Nouveau tableau","Corrigé, Suite de saisie FHRMPESSSRAN  SRereSeTo su 
, "Recharge un tableau en A:",Quitter 

LOS CLS: YC=1:LC=43:NLI=S:GOSUB 39700 

1020 LOCATE 4,2S:PRINT"Edition automatique de Tableaux" 
1030 LOCATE 6,19:PRINT" (Michel Archambault - version février 89)" 

IF NC>0 THEN LOCATE 20,2:PRINT FI$:LOCATE 22,1:PRINT NL; "lignes" 
:NOPT=6:RESTORE 1010:GOSUB 49000 


LC=Largeurs des Colonnes 


en PRINT USING. - 7100 : afin que la 
sauvegarde et l'impression utilisent le 
même sous-programme en 13000, pas 
de LPRINT mais déclaration de LPT1: en 
canal #2. - 10100 à 10250 : ce passage 
(facultatif) propose de copier le .TAB dans 
votre répertoire de traitement de texte sur 
disque dur avec changement du nom 
d'extension. L'exemple concerne ici 
WORD pour un répertoire 
C:\WORD\TEXTE avec extension .DOC. 
Vous adapterez donc à votre besoin. - 
39000 à 64000 : il s'agit de divers 
modules utilitaires qui ont été rechargés 
par MERGE. Sauvegardez-les aussi ” 
séparément pour les utiliser dans vos 
programmes personnels. 


Vous remarquerez la profusion de 
sécurités diverses, car un plantage dû à 
une fausse manoeuvre de l'opérateur 
serait une catastrophe : Quand un 
programme compilé (.EXE) plante il y a 
retour au DOS, donc avec perte de toutes 
les données... 


TRES IMPORTANT : En cas d'imprimante 
lente ou dépourvue de buffer il sera très 
prudent de neutraliser le "timeout" de la 
sortie du PC, d'où ce TAB.BAT de 
lancement. 


MODE LPT1:80,6,P TABLIC.EXE (ou 


GWBASIC  TABLIC.BAS) MODE 
LPT1:80,6 


Michel Archambault 


1100 ON K GOTO 2000,8000,7000,9000,12000,1500 

1500 ’FIN 

1510 IF FCALC=0 THEN 1600 

1520 CLS:LOCATE 12,30:PRINT"Voulez-vous sauvegarder ?":TEX$S="ON":GOSUB 50000:ON 
K GOTO 9000,1600 

1600 ON ERROR GOTO 0:CLS:END 

2000 ‘SAISIE 

2010 IF NC>0 THEN 2700 

2020 CLS:YE=2:E$="Création d’un nouveau Tableau.":GOSUB 39200 

2025 LOCATE 7,20:PRINT"(facultatif, ou Q pour quitter)" 

2030 LOCATE 5,2:LINE INPUT'"TITRE du TABLEAU : ",TITS:1IF TITS="" THEN 2050 

2040 IF INSTR("Qq",TIT$)>0 THEN 1000 

2050 LOCATE 9,30:INPUT"Nombre de Colonnes : ",NCS$ 

2060 NC=VAL (NC$):IF NC<2 THEN 2050 

2070 DIM NCS$ (NC), LC (NC) , PUS (NC) ,TV (NC+1),V$ (300, NC) 

2080 LOCATE 12,8:LINE INPUT"Combien de llahes pour les Légendes de Colonnes ? 1 
FPT RES RO NP ,NLGS 

2090 NLG=VAL (NLGS) : IF NLG<1 THEN BEEP:GOTO 2080 

2100 L=0:FOR C=1 TO NC 

2110 CLS:LOCATE 1,3:PRINT"NATURE : si Texte répondre T ; si numérique tapez le n 
ombre de décimales. ":L=0 

2120 E$="Colonne N°"4+STRS (C) :YE=5:GOSUB 39000 

2140 GOSUB 21000 

2200 ON K GOTO 2210,2120 

2210 NEXT:VS (NLG+1,1)="T":NL=NLG+1:GOTO 3000 

2700 ‘Sécurité effacement 

2710 CLS:BEEP:LOCATE 10,2:PRINT"La Création d’un nouveau Tableau va effacer de 1 
a Mémoire le Tableau Éoeugl us 

2720 LOCATE 14,30:PRINT"Confirmez-vous cet Ordre ?":TEXS$="ON":GOSUB 50000 

2730 IF K=1 THEN RUN 

2740 GOTO 1000 

3000 ’ ENTREES DES VALEURS 

3005 GOSUB 20000 

3010 CLS:YE=2:E$-"ENTREES des VALEURS du TABLEAU":GOSUB 39000 

3020 LOCATE 5,1:PRINT'Nous allons procèder ligne par ligne (les légendes sont dé 
jà faites) , puis colonne par colonne." 

3030 LOCATE 9,2:PRINT'"Seront affichés : N° Ligne, N° Colonne et la ou les légend 
e(s) de la colonne." 

3040 LOCATE 11,13:PRINT"En COLONNE N° 1 (uniquement) on diépose de QUATRE OPTION 
Di Ds PRINT 

3050 PRINT" T fera un trait horizontal de séparation.":PRINT 

3060 PRINT" - fera une ligne vide, pour séparation.":PRINT 

3070 PRINT" E pour erreur : on reprend alors la ligne précèdente.":PRINT 

3080 PRINT" Q pour quitter la saisie." 

3090 LOCATE 22,36:INPUT"Tapez ENTER ",R$:L=NL 

3100 L=L+1:FO0=0:CLS 

3110 GOSUB 22000 

3200 IF FQ=0 THEN 3300 

3210 DATA "Fin de saisie",Corriger,"Suite de la saisie" 

3220 L=L-1:1=1-1:NL=L:RESTORE 3210:CLS:NOPT=3:TIM$="":GOSUB 49000 

3230 ON K GOTO 3900,8000,3100 

3300 GOTO 3100 

3900 NL=L. 

4000 ’ CALCUL DES LARGEURS DE COLONNES 

4010 CLS:LOCATE 12,35:PRINT"Patience...":FCALC=1:FOR C=1 TO NC:LC(C)=1:NEXT 
4020 FOR C=1 TO NC:FOR L=1 TO NLG:S=LEN(VS(L,C)):I1F S>LC(C) THEN LC(C)=S 

4030 NEXT:NEXT:FOR C=1 TO NC:1IF NC$S(C)<>"T" THEN 4200 

4040 FOR L=NLG+2 TO NL:S=LEN(VS(L,C)):IF S>LC(C) THEN LC(C)=S 

4050 NEXT L:GOTO 4300 

4200 ND=VAL (NCS$S (C)):FOR L=NLG+2 TO NL 

4210 S=LEN(STRS (INT (VAL (VS (L,C)))))+VAL(NC$S (C))-(ND>0)-1:1F VAL(VS(L,C))<0 THEN 
S=S+1 

4220 IF S>LC(C) THEN LC (C) =S 


BASIC 


4230 NEXT L 
4240 PUS (C)=STRINGS (LC(C),"#") 
4250 IF ND>0 THEN MIDS$ (PUS (C),LC(C)-ND,1)="." 
4300 NEXT C 
4500 ‘Largeur totale LT 
4510 LT=-0:FOR C=1 TO NC:LT=LT+LC(C) :NEXT: LT=LT+NC*3+1 
4520 IF LT<132 THEN 4600 
4530 CLS:BEEP:LOCATE 10,2:PRINT"ATTENTION ! Largeur totale =";LT; "caractères. (m 
axi=132 en A4 et 195 en A3)" 
LOCATE 13,24:PRINT"Voulez-vous CORRIGER ou MAINTENIR ?":TEXS$="CM":GOSUB 500 


ON K GOTO 8000,4590 
CLS:LOCATE 12,35:PRINT"Patience..." 
TD=1 
? TAB TRAITS VERTICAUX 
TV(1)=TD 
. FOR C=1 TO NC:TV(C+1)=TV(C)+LC(C)+3:NEXT 
GOTO 1000 
? IMPRESSION 
IF NC=0 OR NL=0 THEN BEEP:GOTO 1000 
FQM=0 : GOSUB 15000:IF FQOM=1 THEN 1000 
GOSUB 27000:1F FQI=1 THEN 7120 
GOSUB 16000 
CLS :LOCATE 12,32:PRINT"IMPRESSION en COURS":WIDTH "LPT1:",255:LPRINT CIS 
OPEN "LPT1:" FOR OUTPUT AS #2:2=2 
GOSUB 13000 :CLOSE#2 
GOTO 1000 
’ CORRIGE 
FCOR=0:IF NC=0 OR NL=0 THEN BEEP:GOTO 1000 
DATA Corriger,"Suite de la Saisie'",Quitter 
CLS :RESTORE 8015:TIM$="";NOPT=3:GOSUB 49000:ON K GOTO 8030, 3000,1000 
CLS :LOCATE 10,2:PRINT"Titre actuel : ";TITS 
LOCATE 14,2:LINE INPUT"Corrigez (ENTER = inchangé) : ",R$ 
IF R$<>"" THEN TIT$=RS:FCOR=1 
DATA "Insérer une ligne", "Supprimer une ligne","Modifier le contenu d’une c 
, "Ressaisir toute une ligne",Quitter 
8100 CLS:E$="CHOIX du TYPE de CORRECTION":YE=5:GOSUB 39000:LOCATE 1,1:PRINT NL;" 
lignes au total":RESTORE 8060:NOPT=5:TIM$S="":GOSUB 49000 
8110 ON K GOTO 8200,8300,8500,8400,8120 
8120 IF FCOR=1 THEN 4000 ELSE GOTO 1000 
8200 ’insert 
8210 CLS:LOCATE 10,19:LINE INPUT"Insertion APRES quel N° de Ligne ? (ou Q) ",MS$ 
8220 IF M$="Q" OR M$="Q" THEN 8100 ELSE M=VAL (M$) 
8230 IF M<1 OR M>NL THEN GOSUB 25000:GOTO 8200 
8240 IF M<NLG+1 THEN BEEP:LOCATE 16,13:PRINT"ATTENTION ! ce sera une ligne légen 
de. Confirmez-vous ?":TEX$S="ON":GOSUB 50000:IF K=2 THEN 8200 ELSE NLG=NLG+1 
8250 LOCATE 12, 36: PRINT"Patience...":GOSUB 23000:FCOR=1 
8260 CLS:L-M+1:LOCATE 1,24:PRINT'"Saisie de cette nouvelle LIGNE N°";L:PRINT:GOSU 
B 22020 
8270 GOTO 8100 
8300 ’ supprim 
8310 CLS:LOCATE 8,19:LINE INPUT"Suppression de quel N° de Ligne ? "(our 0)r",MS 
8320 IF M$="Q" OR M$="Q" THEN 8100 ELSE M=VAL (M$) 
8330 IF M<1 OR M>NL OR M=NLG+1 THEN GOSUB 25000:GOTO 8300 
8340 IF M<NLG+1 THEN BEEP:LOCATE 12,14:PRINT"ATTENTION ! c’est une ligne légende 
. Confirmez-vous ?":TEXS$="ON":GOSUB 50000:IF K=2 THEN 8300 ELSE NLG=NLG-1 
8350 LOCATE 14,24:PRINT"Contenu de la colonne N° 1 : ";VS(M,1):" OK ?2":TEX$="ON 
":GOSUB 50000:1F K=2 THEN 8300 
8360 LOCATE 17, 36:PRINT'"Patience...":GOSUB 24000 :FCOR=1:GOTO 8100 
8400 ’ressaisie ligne 
8410 CLS:LOCATE 10,24:LINE INPUT"'N° de la Ligne à ressaisir ? (ou Q) ",M$ 
8420 IF M$="Q" OR M$="Q" THEN 8100 ELSE M=VAL (M$) 
8430 IF M<1 OR M>NL OR M=NLG+1 THEN GOSUB 25000:GOTO 8400 


8440 LOCATE 13,2:PRINT"Contenu de la case LIGNE";M; "colonne 1 : ";V$(M,1) : LOCATE 
15,38:PRINT"OK ?":TEXS$S="ON":GOSUB 50000:IF K=2 THEN 8400 
8450 IF M<NLG+1 THEN BEEP: LOCATE 16,14:PRINT"ATTENTION ! c’est une ligne légende 
. Confirmez-vous ?":TEXS="ON":GOSUB 50000:IF K=2 THEN 8400 
8460 CLS:L=M:GOSUB 22000:FCOR=1:GOTO 8100 
8500 ’case 
CLS:YE=2:E$="Modification du contenu d’une case":GOSUB 39000 
LOCATE 5,26:LINE INPUT"Quel N° de Colonne ? (ou Q) ",CS$ 
IF C$="Q" OR C$="q" THEN 8100 ELSE C=VAL (CS) 
IF C<1 OR C>NC THEN GOSUB 25000:GOTO 8500 
LOCATE 7,10:PRINT"Légende = ";:FOR I=1 TO NLG:PRINT VS$(I,C);"/";:NEXT:PRINT 
OK ?":TEXS="ON":GOSUB 50000:IF K=2 THEN 8500 
8560 LOCATE 10,20:LINE INPUT"Quel N° de Ligne ? ",M$:M=VAL (M$) 
8570 IF M<1 OR M=NLG+1 OR M>NI OR VS (M,1)="T" THEN GOSUB 25000:LOCATE 18,29:PRIN 
T SPACES (28) :GOTO 8560 
8580 IF M<NLG+1 THEN BEEP: LOCATE 12,14:PRINT"ATTENTION ! c’est une ligne légende 
. Confirmez-vous ?":TEXS$S="ON":GOSUB 50000:IF K=2 THEN CLS:GOTO 8560 
8590 IF C>1 THEN LOCATE 14,24:PRINT"Contenu de la colonne N° 1 : ";VS(M,1);" OK 
2":TEXS="ON":GOSUB 51000:1IF K=2 THEN 8500 
8600 ? 
8610 LOCATE 16,15:PRINT"Contenu de la case demandée : ";VS$(M,C) 
8620 LOCATE 18,7:LINE INPUT"Nouveau contenu (ENTER si inchangé) : ",RS$ 
8630 IF R$<>"" THEN VS (M,C)=R$:FCOR=1 
8635 IF M=1 THEN GOSUB 26000:GOTO 8100 
8640 IF C=1 AND R$="t" THEN VS (M,C)="T" 
8650 GOTO 8100 
9000 ’ SAUVEGARDE 
9005 IF NC=0 OR NL=0 THEN BEEP:GOTO 1000 ELSE GOSUB 11000 
9010 CLS:LOCATE 12,16:INPUT"Préparez une DISQUETTE FORMATEE en Drive A:. ENTER " 
: R$ 
9020 OPEN FICTS FOR OUTPUT AS #1:Z=-1:FL=0:’ sauvegarde .TAB 
9030 GOSUB 13000:CLOSE #1 
10000 ’ Sauvegarde .VAL 
10010 OPEN FICVS FOR OUTPUT AS #1 
10020 PRINT#1,TITS:PRINT#1,NC:PRINT#1,NL:PRINT#1,NLG 
10030 FOR C=1 TO NC:PRINT#1,NCS$ (C) :NEXT 
10040 FOR C=1 TO NC:FOR L=1 TO NL:PRINT#1,VS$(L,C):NEXT:NEXT 
10050 CLOSE#1 : FCALC=0 
10100 ’ *.TAB vers WORD en *.DOC 
10110 CLS:LOCATE 12, 7:PRINT"Voulez-vous copier ce fichier dans votre Répertoire 
de textes WORD 2":TEX$S="ON":GOSUB 50000 
10120 ON K GOTO 10200,1000 
10200 LOCATE 15,2:LINE INPUT"Répertoire C:\WORD\TEXTE Corrigez ou ENTER ",R$ 
10210 PAT$="C:\WORD\TEXTE":IF R$<>"" THEN PATS=RS 
10220 FIW$S=PAT$S+"\"+FIS+".DOC" 
10230 SHELE"COPY "+FICTSF" PF PIWS 
10240 LOCATE 17,12:PRINT"Lit écrit, Fusionne, puis ";FI$;".DOC";:INPUT" . ENTER 
5 HS 
10250 GOTO 1000 
11000 ’ NOM FICHIER SAUVEGARDE 
11010 IF FI$="" THEN 11100 ÿ 
11020 CLS:LOCATE 10,20:PRINT"Sauvegarde du Tableau sous le Nom de ";FIS;" ?":TEX 
$="ON":GOSUB 50000 : 
11030 ON K GOTO 11500,11100 
11100 CLS:YE=5:E$="SAUVEGARDE de ce FICHIER":GOSUB 39200 
11110 LOCATE 8,3:PRINT"Tapez un Nom de HUIT caractères MAXI, sans EXTENSION ni n 
om de DRIVE (A:)" 
11120 LOCATE 10,1:PRINT"Deux fichiers seront créés en A: .VAL pour les valeurs e 
t .TAB pour le Tableau." : 
He LOCATE 13,42:PRINT SPACES (8);"> ":LOCATE 13,30:LINE INPUT"NOM (ou Q): 
DA 
11135 IF F$="Q" OR F$="q" THEN 1000 
11140 IF LEN(F$)>8 OR F$="" THEN BEEP:GOTO 11130 


11150 IF INSTR(F$S," ")+INSTR(FS,".")+INSTR(F$S,":")>0 THEN BEEP:GOTO 1 
11500 FIS=F$:FICTS="A:"+FIS$S+",.TAB":FICVS="A:"+FIS+",.VAL" 
11510 RETURN 

12000 ’ CHARGE 

12005 IF NC>0 THEN 2700 


1130 


12010 CLS:YE=6:E$="CHARGEMENT d’un FICHIER en Drive A: (Q=quitter, Je des f 


ichiers)":GOSUB 39200 


nom de DRIVE (A:)" 


12020 LOCATE 14,3:PRINT"Tapez un Nom de HUIT caractères MAXI, sans tai ni 


12030 LOCATE 12,39:PRINT SPACES (8); ">":LOCATE 12,33:LINE INPUT"NOM : 
B 51000:F$=UPPS 

12035 IF F$="Q" THEN 1000 ELSE IF F$="L" THEN GOSUB 12500:GOTO 12035 
12040 IF LEN(F$)>8 OR F$="" THEN BEEP:GOTO 12030 

12050 IF INSTR(FS," ")+INSTR(F$S,".")+INSTR(FS,":")>0 THEN BEEP : GOTO 1 
12060 FIS=FS:FICVS="A:"+FIS+".VAL" 

12100 CLS:LOCATE 12,35:PRINT"Patience..." 

12110 OPEN FICV$S FOR INPUT AS #1 

12120 LINE INPUT#1,TITS:INPUT#1,NC:INPUT#1,NL:INPUT#1,NLG 

12125 DIM NCS$ (NC), LC (NC), PUS (NC), TV (NC+1),V$(200,NC) 

12130 FOR C=1 TO NC:INPUT#1,NCS$ (C) : NEXT 

12140 FOR C=1 TO NC:FOR L=1 TO NL:LINE INPUT#1,VS$ (L,C) : NEXT:NEXT 
12150 CLOSE#1 

12160 GOTO 4020 

12500 ’ liste A: 

12510 CLS:PRINT TAB(15);"Noms de Fichiers Tableaux présents sur Ras 
: PRINT - 

12520" FILLES "A: XC VAL" 


12530 PRINT TAB(18);"";:LINE INPUT"'NOM (sans extension ni nom de Sr ",UPPS:G 


OSUB 51000:F$=UPPS 

12540 RETURN 

13000 ’ IMPRESSION/SAUVEGARDE du Tableau 
13010 PRINT#Z,TAB((LT-LEN(TITS$S))/2+TD-1) ;TITS 
13020 IF FL=1 THEN FOR C=1 TO NC-1:PRINT#Z, TAB (TV (C)-1+ (TV (C+1)-TV (C) 
T:PRINT#Z, TAB (TV (NC) -1+ (LT-TV (NC) ) /2) ; NC 

13030 PRINT#Z, TAB (TD) ; CHR$ (A(D)); :FOR C=1 TO NC-1 

13040 PRINT#Z, STRINGS (LC(C)+2,F(D));:CHR$ (I (D));:NEXT 

13050 PRINT#Z, STRINGS (LC (NC) +2,F (D) ) ; CHRS (B (D)) 

13060 L$="":FOR L=1 TO NLG:IF FL=1 THEN LS$=STRS (L) :’ légendes centrée 
13070 FOR C=1 TO NC 

13080 PRINT#Z,TAB (TV (C) +TD- _1) ; CHRS (E (D) ) ; SPACES ( (LC (C)-LEN (VS (L,C))) 
) ;: : NEXT 

13090 PRINT#Z, TAB (TV (NC+1) +TD-1) ; CHR$ (E (D)) ;L$:NEXT 

13100 ’ ligne valeurs 

13110 FOR L=NLG+1 TO NL:IF FL=1 THEN L$=STRS (L) 

13120 IF VS(L,1)="T" THEN GOSUB 13300:GOTO 13190 

13130 IF VS$S(L,1)="=" THEN GOSUB 13400:GOTO 13190 

13140 FOR C=1 TO NC 

13150 PRINT#Z,TAB(TV(C)+TD-1);CHR$S(E(D));" "; 

13160 IF NC$(C)<>"T" AND (VAL(VS(L,C))<>0 OR V$(L,C)="0") THEN PRINT# 
(C) ; VAL (VS (L,C)) ;:GOTO 13180 

13170 PRINT#Z,VS(L,C); 

13180 NEXT C:PRINT#Z, TAB (TV (NC+1) +TD-1); CHRS (E (D) ) ; L$ 

13190 NEXT L 

13200 PRINT#Z,TAB (TD) ;CHRS$ (C(D)); :FOR C=1 TO NC-1 

13210 PRINT#Z, STRINGS (LC (C)+2,F (D)) ; CHRS (J (D) ) ; :NEXT 

13220 PRINT#Z,STRINGS (LC (NC) +2,F (D) ) ; CHRS (D (D)) 

13230 IF Z=2 THEN PRINT#Z,CHRS (27);"@" 

13240 TD=1:RETURN 

13300 ’trait horizontal : 

13310 PRINT#Z, TAB (TD) ; CHR$ (G(D)); :FOR C=1 TO NC-1 

13320 PRINT#Z, STRINGS (LC(C)+2,F (D) ) ; CHRS (K (D) ) ; :NEXT 

13330 PRINT#Z, STRINGS (LC (NC) +2,F (D) ) ; CHRS (H (D) ); LS 

13340 RETURN 
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13400 ’ligne vide 

13410 FOR C=1 TO NC:PRINT#Z, TAB (TV (C)+TD-1) ; ; CHRS (E (D) ); :NEXT 

13420 PRINT#Z,TAB (TV (NC+1) +TD-1); CHRS (E (D) ) ; LS 

13430 RETURN 

15000 "TAILLES CARACTERES en Orientations normale & à l’italienne 

15010 ‘indice 1=normal ; indice 2=italierne ; CI$()=CODE EPSON ; CPL()=carac. pa 
r ligne ; CARS ()=taille en clair 

15020 CIS(1)="":CI$(2)="":CARS (1) ="pica":CARS$S (2)="pica":CPL(1)=80:CPL(2)=115 
15030 IF LT<=78 THEN K=1:GOTO 15450 à 

15040 IF LT<=95 THEN CI$(1)=CHRS$ (27) +"M":CPL(1)=96:CARS$ (1)="élite":GOTO 15400 
15050 IF LT<=115 THEN CIS (1)=CHRS (15) :CPL(1)=137:CAR$ (1) ="condensé":GOTO 15400 
15060 IF LT<=137 THEN CIS (2) =CHRS (27) +"M":CPL(2)=137:CARS$S(2)="élite" 

15070 IF LT<=195 THEN CI$ (2) =CHR$ (15) :CPL(2)=193:CAR$ (2) ="condensé" 

15300 ‘CHOIX FORMAT 

15310 CLS:BEEP 

15320 LOCATP 8, 32#PRINT AT IT ENT T'ON tr 

15330 LOCATE 12,2:PRINT"Ce Tableau ne peut être imprimé qu’à l’ITALIENNE ! (Larg 
eur";LT;"caractères)" 

15340 LOCATE 16,26:PRINT"OK ou Modifications du tableau ?":TEX$="OM":GOSUB 50000 
:1F K=2 THEN FQM=1:GOTO 15900 

15350 K=2:GOTO 15450 

15400 CLS:BEEP:LOCATE 6,22:PRINT'"Quelle LARGEUR PAPIER choisissez-vous ?" 

15410 LOCATE 9,21:PRINT"(le tableau fait";LT; "caractères de large)" 

15420 LOCATE 12,20:PRINT"N - NORMALE en caractères ";CARS (1) 

15430 LOCATE 14, 20:PRINT"I — à l’ITALIENNE en caractères ";CAR$ (2) 

15440 TEXS="NI":GOSUB 50000 

15450 CIS$=CIS (K) :CPL=CPL(K) 

15900 RETURN 

16000 ’EPAISS.TRAIT 

16010 DATA Simples,Doubles,"Pas de traits" 

16020 RESTORE 16010:CLS:NOPT-3:TIM$="Epaisseur des Traits":GOSUB 49000:D=K:CLS 
16030 RETURN 

20000 ’ NOTA LIGNES 

20010 CLS:YE=2:E$="NOTRE NUMEROTATION DES LIGNES":GOSUB 39200 

20020 LOCATE 5,1:PRINT"Vous avez prévu";NLG;"lignes de légendes de colonnes." 
20030 LOCATE 7,1:PRINT"TABLIC 5e charge de tracer un trait horizontal de séparat 
ion sur la ligne N°";NLG+1 

20040 LOCATE 9,1:PRINT"Votre première ligne de données sera donc la ligne N°'";NL 
G+2 

20050 LOCATE 11,1:PRINT"Si plus loin vous intercalez un autre trait ou une ligne 
blanche de séparation celle-ci comptera pour une ligne." 

20060 LOCATE 15,1:PRINT"En somme la numérotation des lignes commence à la premiè 
re ligne de légende." 

20070 PORTE 17,1:PRINT'"'En fin de tableau TABLIC se chargera de tracer le trait 
final. 

20080 ie 19,1:PRINT'"L'option L à l’impression fournit une HAT OR at oi des 1 
ignes." 

20100 LOCATE 22,36:INPUT"TAPEZ ENTER ",R$ 

20110 RETURN 

21000 "SAISIE ligne LEGENDE 

21005 FOR L=1 TO NLG 

21010 LOCATE 6+L*2,3:PRINT"Légende ligne";L;:LINE INPUT": ",V$S(L,C):NEXT 

21020 LOCATE 8+NLG*2,29:LINE INPUT"NATURE (T ou 0....6) : ",N$S 

21030 IF LEN(NS)<>1 OR INSTR("Tt0123456",N$S)=0 THEN BEEP:GOTO 21020 

21040 NC$(C)=N$S:IF N$="t" THEN NCS$S(C)="T" 

21050 LOCATE 20,35:PRINT"Est-ce OK ?2":TEX$S="ON":GOSUB 50000 

21060 RETURN 

22000 ‘SAISIE LIGNE 

22010 E$="LIGNE N°"+STRS (L):YE=2:GOSUB 39000:LOCATE 4,1 

22020 :FOR CET: TO NC:PRINT'colL %;C; "= PSSEOR J=1 TO;:NLGIPRINT VS (TJ, C);M/2RSSNEXTET 
ENEMLNPOTME REMISE C) 

22030 IF LEN(V$(L,1))<>1 THEN 22100 

22040 IF VS(L,1)="t" THEN VS(L,1)="T" 


| EEE 


22050 IF VS(L,1)="=" OR VS(L,1)="T" THEN C=NC:GOTO 22100 | 

22060 IF V$S(L,1)="E" OR VS(L,1)="e" THEN CLS:LOCATE 1, 50:PRINT" (correction)":L=L 
—1:GOTO 22010 

22070 IF INSTR("Qq",VS$S(L,1))=0 THEN 22100 ELSE C=NC:FQ=1 
22100 NEXT : RETURN 

23000 ‘INSERTION LIGNE apres ligne M 

23010 NL=NL+1:FOR K=NL-1 TO M+1 STEP -1 

23020 FOR C=1 TO NC:V$S(K+1,C)=V$S (K, C) : NEXT:NEXT 

23030 FOR C=1 TO NC:V$(M+1,C)="":NEXT 

23040 RETURN 

24000 ‘SUPPRESSION LIGNE M 

24010 FOR K=M TO NL-1 

24020 FOR C=1 TO NC:V$(K,C)=VS$S (K+1,C) : NEXT:NEXT 

24030 FOR C=1 TO NC:V$ (NL, C)="":NEXT:NL=NL-1 

24040 RETURN 

25000 ‘REFUS 

25010 BEEP:LOCATE 18,29:LINE INPUT"IMPOSSIBLE ! tapez ENTER ",R$: RETURN 
26000 ’CORREC NATURE LEGENDE 
26010 CLS:LOCATE 3,20:PRINT"La NATURE de cette Colonne";C;"est ";NC$(C);" 
":TEXS="ON":GOSUB 50000:1F K=1 THEN 26060 

26020 LOCATE 10,29:LINE INPUT'NATURE (T ou 0....6) : ",N$:FCOR=1 
26030 IF LEN(N$S)<>1 OR INSTR("Tt0123456",N$)=0 THEN BEEP:GOTO 26020 
26040 NC$S(C)=NS:IF N$="t" THEN NC$S(C)="T" 

26060 RETURN 

27000 ‘MENU IMPRIM. 


27010 DATA "Impression normalec","Centrage du tableau","Lignes et colonnes numéro 
tées",Quitter 
27020 CLS:RESTORE 27010 :NOPT=4:TIMS="PREPAREZ L'’ IMPRIMANTE" :GOSUB 49 
27030 ON K GOTO 27040,27050,27060,27070 

27040 TD=1:FL=0:FQI-0:GOTO 27100 

27050 TD=(CPL-LT)/2:FL=0:FQI=0:GOTO 27100 

27060 TD=1:FL=1:FQI-0:GOTO 27100 

27070 TD=1:FQI=1 

21100 RETURN 

39000 ’. Cadre simple d’une naine ES$ positionnée en.YE 

39010 XE=(80-LEN (ES) ) /2-2 

39020: LE=LEN(ES) 

39030 LOCATE YE-1,XE: PRINT CHRS (218) ; STRINGS (LE+2,196);CHRS$ (191) 
39040 -LOCATE YE,XE:PRINT CHR$S(179);" ";ES$;" ";CHR$ (179) 

39050 LOCATE YE+1,XE:PRINT CHRS (192); STRINGS (LE+2, 196);CHRS$S (217) 
39060 RETURN 

39200 ’ Cadre double d’une chaine E$ positionnée en YE 

39210 XE=(80-LEN (ES) ) /2-2 

39220 LE=LEN(ES) 

39230 LOCATE YE-1,XE:PRINT CHR$ (201) ; STRINGS (LE+2,205);CHR$ (187) 
39240 LOCATE YE,XE:PRINT CHRS(186);" ";E$;" ";CHRS (186) 

39250 LOCATE YE+1,XE:PRINT CHR$ (200) ; STRINGS$S (LE+2, 205); CHR$ (188) 
39260 RETURN | 

39700 ’ Cadre double de NLI lignes largeur LC positionné en YC 
39710 XE=(80-LC)/2 

39720 LOCATE YC,XE:PRINT CHR$ (201); STRINGS (LC-2,205);CHR$ (187) 

39730 FOR NN=YC+1 TO YC+NLI-2 

39740 LOCATE NN, XE:PRINT CHR$ (186) ; SPC (LC- 2); CHRS (186) 

39750 NEXT 

39760 LOCATE YC+NLI-1,XE:PRINT CHRS (200); STRINGS (LC-2,205); CHRS (188) 
39770 RETURN 

49000 ’ AFFMENUA = AFFICHAGE de MENU 

49010 ’ NOPT-Nombre d’Options:TIM$=TITRE du MENU 

49020 LOCATE 2, (80-LEN(TIMS$))/2:PRINT TIMS 

49030 TEX$S="":FOR J=1 TO NOPT 

49040 READ OPTS$S:TEXS$S=TEXS+LEFTS (OPTS,1) 

49050 LOCATE J*2+13-NOPT,27:PRINT LEFTS(OPTS,1);" — ";OPTS. 


00 


49060 NEXT 

49070 GOSUB 50000 

49080. RETURN 

50000 ’ MENUA - REPONSE A UN MENU 

50010 LM=LEN(TEXS) 

50020 LOCATE 24, (70-LM*2)/2:PRINT"Réponse ("; 

50030 FOR I= 1 TO LM-1:PRINT MID$S(TEX$,I,1);",";:NEXT 

50040 PRINT RIGHTS (TEX$,1);")"; 

50050 R$="":WHILE R$="":RS$=INPUTS (1) :WEND . 

50060 UPPS=R$S:GOSUB 51000 :R$=UPPS | 

50070 K=INSTR(TEXS$,R$) 

50080 IF K=0 THEN BEEP:GOTO 50050 

50090 LOCATE 24,1:PRINT SPACES (79); 

50100 RETURN 

51000 ’ UPPERA - MISE EN MAJUSCULES 

51010 FOR I=1 TO LEN (UPPS$) - 

51020 IF ASC(MIDS (UPP$,I,1))>96 AND ASC(MIDS (UPP$,1,1))<123 THEN MIDS (UPPS$,1,1)= 
CHRS$ (ASC (MIDS (UPPS,I,1))-32) | 
51030 NEXT 

51900 RETURN 

64000 ’ TRAITEMENT ERREUR DISK 

64010 BEEP : ASTERS=STRINGS (10,"*") : TAPENT$S=ASTER$S+" TAPEZ ENTER "+ASTERS 

64015 ERL=10230 THEN RESUME 10200 

64020 ERR=53 THEN PRINT ASTER$+" FICHIER NON TROUVE ";:GOTO 64300 

64030 ERR=61 THEN PRINT ASTER$+" DISQUE PLEIN "; :GOTO 64300 

64040 ERR=64 THEN PRINT ASTER$S+" NOM DE FICHIER NON TROUVE ";:GOTO 64300 
64050 ERR=70 THEN PRINT ASTER$+" DISQUETTE PROTEGEE ";:GOTO 64300 

64060 ERR=71 THEN PRINT ASTER$S+" DRIVE OUVERT OÙ VIDE ";:GOTO 64300 

64070 ERR=72 THEN PRINT ASTER$+" ERREUR sur le DRIVE ";:GOTO 64300 

64075 ERR=27 THEN PRINT ASTER$+" PLUS DE PAPIER "; :GOTO 64300 

64080 ERR=24 OR ERR=25 OR ERR=57 THEN PRINT ASTERS$+" IMPRIMANTE PAS PRETE ";: 
GOTO 64300 

64090 IF ERR=52 OR ERR=64 OR ERR=76 THEN PRINT ASTER$+" NOM DE FICHIER INCORRECT 
“";:GOTO 64300 

64100 IF ERR=55 THEN CLOSE:RESUME 1000 

64200 PRINT ASTERS$;" ERREUR N°";ERR; "en Ligne";ERL;" ";ASTERS 

64300 PRINT TAPENTS; : INPUT"",Q$:RESUME 1000 
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C - Corrigé, Suite de saisie Q - Quitter 
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S - Sauvegarde sur À: Réponse (N,C,I,S,R,Q) 


SENS 


Suite de la page 44 

655 IF ANNRES="" THEN PRINT CHR$(7):LOCATE 10,43:PRINT " "iGOTO 650 
660 LOCATE 15,40:LINE INPUT CREDITACTS 

665 IR CREDITACTS="" THEN PRINT CHR$(7):LOCATE 15,40:PRINT " 
670 CREDITACT=VAL(CREDITACTS) 

680 LOCATE 12,38:LINE INPUT COMPTES 

690 IP COMPTBS="C" OR COMPTES="c" THEN 720 

700 IF COMPTES="D" OR COMPTES="d" THBN 720 

710 PRINT CHRS(7):GO0TO 680 

720 COLOR 3,0 

730 GOSUB 2680 

740 OPEN "O",#1,FICHIERS 

750 WRITE #1,CREDITACT, CREDIT, DEBIT, VALEURS ,DATS,NE 

760 CLOSE #1 

765 SHELL DRIVERS+"ATTRIB +R "+FICHIERS 

770 LOCATE 23,32:COL0R 0,2:PRINT " FICHIER CREE ":COLOR 3,0 
780 FOR T=1 TO 2500: NEÏT T 

7190 GOTO 410 


830 CLS:GOSUB 2560:COLOR 2,0:LOCATE 2,28:PRINT "M I SE A JO U R':COLOR 3,0 


850 GOSUB 2620 

860 LOCATE 16,9:PRINT "CREDIT ACTUEL :":LOCATE 16,35:PRINT "F" 

870 LOCATE 16,49:PRINT “CREDIT :":LOCATE 16,68:PRINT "F" 

880 LOCATE 18,49:PRINT "DEBIT :":LOCATE 18,68:PRINT "F" 

890 LOCATE 21,7:PRINT "VALEUR :" 

900 LOCATB 23,12:COL0R 0,2:PRINT " F9 CREDIT FIO DEBIT 
FT FIN ":COLOR 3,0 

910 LOCATE 21,57:PRINT "DATE :" 

911 MS$=LERTS (DATES, 2) :MS=VAL(MS$) 

912 ANNBES=RIGHTS(DATES,4) 

913 IF MS=1 THEN NOIS$=" JANVIER" 

914 IR MS=2 THEN MOIS$="FEVRIER" 

915 IF MS=3 THEN MOIS$="MARS" 

916 IF MS=4 THEN MOIS$="AVRIL" 

917 IF MS=5 THEN NOIS$="MAI" 

918 IF MS=6 THEN NOIS$="JUIN" 

919 IR MS=7 THEN MOIS$="JUILLET" 

920 IF NS=8 THEN NOIS$="AOUT" 

921 IF M9=9 THEN MOIS$="SBPTEMBRE" 

922 IF MS=10 THEN MOIS$="OCTOBRE" 

923 IF MS=11 THEN MOIS$="NOVENBRE" 

924 IF MS=12 THEN NOIS$="DECEMBRE" 

930 COLOR 0,7 

940 LOCATE 10,13:PRINT MOIS$ 

950 LOCATE 10,43:PRINT ANNEES 

960 LOCATE 12,38:LINE INPUT COMPTES 

970 IP COMPTES="C" OR COMPTB$="c" THEN 1000 

980 IF COMPTES="D" OR COMPTES$="d" THEN 1000 

990 PRINT CHR$(7):GOTO 960 

1000 COLOR 3,0 

1010 GOSUB 2680 

1020 SHELL DRIVBRS+"ATTRIB -R "+FICHIERS:OPEN "l",#1,FICHIERS 

1040 OPEN "0",#2, "TEMPO" 

1050 WHILE NOT EOR(1) 

1060 INPUT #1,CREDITACT,CREDIT,DEBIT, VALEURS, DATS,NE 

1070 MRITE #2,CREDITACT,CREDIT,DEBIT, VALEURS ,DATS,NE 

1080 WEND 

1090 CLOSE #1 

1100 KILL FICHIERS 

1105 CRBDIT=0:DEBIT=0 

1110 LOCATE 16,25:COLO0R 0,6:PRINT USING "######.##";CREDITACT:COLOR 3,0 

1120 IS=INKEYS 

1130 IF I$="C" THEN 1170 

1140 IR I$="D" THEN 1250 

1145 IF I$="F" THEN 1340 

1150 GOTO 1110 

1160 ? ----- Credit ----- 


":60T0 660 


1170 COLOR 0,7:LOCATE 16,58:LINE INPUT CREDITS 
1175 IF CREDITS="" THEN 1220 

1180 COLOR 3,0 

1190 CREDIT=VAL(CREDITS) 

1200 CREDITACT=CREDITACT#CREDIT 

1210 GOSUB 2700 

1220 LOCATE 16,25:PRINT USING "######.##";CREDITA(T 
1225 LOCATE 16,58:COLOR 3,0:PRINT " L 
1230 GOTO 1110 

1240  ----- Debit ----- 

1250 COLOR 0,7:LOCATE 18,58:LINE INPUT DEBITS 
1255 IF DEBITS="" THEN 1300 

1260 COLOR 3,0 

1270 DEBIT=VAL(DEBITS) 

1280 CREDITACT=CREDITACT-DEBIT 

1290 GOSUB 2700 

1300 LOCATE 16,25:PRINT USING "######.##";CREDITAOT 
1305 LOCATE 18,58:COLOR 3,0:PRINT " ï 
1310 GOTO 1110 

1320 ! ----- Fin mise à jour ----- 

1340 CLOSE #2 

1350 SHELL DRIVERS+"RENANE "+"TEMPO "+FICHIERS 
1355 SHELL DRIVERS+"ATTRIB +R "+FICHIERS 

1360 GOTO 410 

1370 ? 


1410 SUP=0:CLS:GOSUB 2560:COLOR 2,0:LOCATE 2,30:PRINT 'SUPPRESS 
LOR 3,0 

1420 GOSUB 2620 

1425 LOCATE 14,6:PRINT "N° ACTION A SUPPRIMER :" 

1430 COLOR 0,7 

1440 LOCATE 19,13:LINE INPUT NOIS$ 

1445 IF MOIS$="" THEN COLOR 3,0:G0T0 410 


[ON 


1450 IF LEN(MOISS)C(3 OR LEN(KOIS$))9 THEN PRINT CHRS(7):LOCATE 10,13:PRINT 


“:GOTO 1440 
1460 LOCATE 10,43:LINE INPUT ANNEES 
1470 LOCATB 12,38:LINE INPUT COMPTES 
1480 IF COMPTES="C" OR COMPTES="c" THEN 1505 
1490 IF COMPTES="D" OR COMPTES="d" THEN 1505 
1500 PRINT CHR$(7):G0T0 1470 
1505 LOCATE 14,29:LINE INPUT SUPPS 
1506 IF SUPP$="" THEN PRINT CHRS(7):G0T0 1505 
1509 SUPP=VAL(SUPPS) 
1510 COLOR 3,0 
1520 GOSUB 2680 
1530 SHELL DRIVBRS+"ATTRIB -R "+FICHIERS:OPEN "l",#1,FICHIERS 
1540 OPEN "0",#2, "TEMPO" 
1550 WHILE NOT EOF(1) 
1560 INPUT #1,CRBDITACT, CREDIT, DEBIT, VALEURS, DATS,NE 
1565 IF NE=SUPP THEN 1575 
1566 IF SUP=1 THEN NE=NE-1 ELSE 1570 
1567 CREDITACT=CREDITACT+DEB-CRED 
1570 MRITE #2,CREDITACT,CREDIT,DBBIT, VALEURS , DATS,NE 
1573 GOTO 1650 
1575 SUPP=-1:SOMME=CREDIT+DEBIT:CRED=CREDIT:DEB=DEBIT 
1580 LOCATE 16,5:COLOR 0,7:PRINT USING "\ 
F  ";S0NNE; 
1590 PRINT USING “| 
1600 LOCATE 18,6:PRINT "A EFFACER (0/N) :" 
1610 LOCATB 18,24:C0OLOR 0,7:LINE INPUT BFFS:COLOR 3,0 
1620 IF BFF$="0" OR BFF$="o" THBN SUP=1:G0T0 1650 
1630 IP ERF$="N" OR EFF$="n" THEN 1570 
1640 PRINT CHR$(7):LOCATE 18,24: PRINT " ":GOTO 1610 
1650 WEND 
1740 CLOSE #1:CLOSE #2 
1750 KILL FICHIERS 


\"'; VALEURS: COLOR 3,0 


7 
‘np 


\'SDATS: PRINT USING " #####44.#4 


1760 SHELL DRIVERS+"RENAME "+"TEMPO "#PICHIERS 

1770 SHELL DRIVERS+"ATTRIB +R "+PICHIERS 

1780 GOTO 410 

1790 ? 

1800 ? ----- Visualiser ----- 

1810 

1820 Y=5:CLS:60SUB 2560:COLOR 2,0:LOCATE 2,27:PRINT "VISUALISATI ON": 

COLOR 3,0 

1830 GOSÙB 2620 

1840 COLOR 0,7 

1850 LOCATB 10,13:LINE INPUT MOIS$ 

1855 IR NOIS$="" THEN COLOR 3,0:G0T0 410 

1860 IF LEN(MOIS$)(3 OR LEN(MOIS$))9 THEN PRINT CHR$(7):LOCATE 10,13:PRINT " 
":GO0T0 1850 

1870 LOCATE 10,43:LINE INPUT ANNEBS 

1880 LOCATE 12,38:LINB INPUT COMPTES 

1890 IF COMPTB$="C" OR COMPTES$="c" THEN 1920 

1900 IF COMPTE$="D" OR COMPTES="d" THEN 1920 

1910 PRINT CHR$(7):60T0 1880 

1920 COLOR 3,0 

1930 GOSUB 2680 

1935 CLS:GÇOSUB 2560:COLOR 2,0:LOCATE 2,27:PRINT "VI SUALI SAT I 0 N":COL0 

R 3,0 

1940 OPEN "I",#1,FICHIERS 

1950 WRILE NOT BOF(I) 

1960 INPUT #1,CRBDITACT, CREDIT, DEBIT, VALBURS ,DATS,NE 

1965 IR NB=0 THEN 2010 

1970 SOMMB=CREDIT+DEBIT 

1975 IR DATS=" "THEN 1981 

1980 LOCATE Y,5:PRINT DATS 

1981 LOCATE Y,20:PRINT USING "######.## P";SOMNE 

1982 IR VALEURS=" " THEN 1991 

1983 LOCATE Y,40:PRINT LEFTS(VALBURS, 30) 

1990 LOCATE Y,75:PRINT USING "###";NE 

1991 Y=Y+1:IR Y(21 THEN 2000 

1992 Y=5:LOCATE 22,28:PRINT "* ESPACE POUR LA SUITE *" 

1993 IS=INKRYS 

1994 IR I$=" " THEN 1996 

1995 GOTO 1993 

1996 CLS:GOSUB 2560:COLOR 2,0:LOCATE 2,27:PRINT "V I SUALI SAT I O0 N“:COL0 

R 3,0 

2000 SOXME=0 

2010 WEND 

2020 CLOSE #1 

2025 LOCATE 22,28:PRINT s 

2030 LOCATE 22,34:COLOR 0,2:PRINT “ FIN DE LISTE ":COLOR 3,0 

2040 LOCATE 23,28:PRINT "* ESPACE POUR LA SUITE *" 

2045 IS=INKEYS 

2046 IF I$=" " THEN 410 

2050 GOTO 2045 

2060 ? 


2090 CLS:GOSUB 2560:COLOR 2,0:LOCATE 2,30:PRINT "I MP RE S S I O N':COLOR 3,0 
2100 GOSUB 2620 

2110 COLOR 0,7 

2120 LOCATE 10,13:LINE INPUT MOIS$ 

2125 IF MOIS$="" THEN COLOR 3,0:60T0 410 

2130 IF LEN(NOIS$)(3 OR LEN(NOIS$)>9 THEN PRINT CHR$(7):LOCATE 10,13:PRINT * 


“à 2120 
2140 LOCATE 10,43:LINE INPUT ANNBES 
2150 LOCATE 12,38:LINE INPUT COMPTES 
2160 IF COKPTRS="C" OR COMPTES="c" THEN 2190 
2170 IF COXPTBS="D" OR COMPTES="d" THEN 2190 
2160 PRINT CHRS(7):60T0 2150 
2190 COLOR 3,0 
2200 GOSUB 2680 


2210 LOCATE 23,19:COLOR 0,2:PRINT " ALLUMEZ L'IMPRINANTE ET APPUYEZ SUR ESPACE " 


:COLOR 3,0 
2220 I$=INKEYS 

2230 IF I$=" " THEN 2240 

2235 GOTO 2220 

2240 IF COMPTES="C" OR COMPTES="c" THEN CMTPS="COURANT" ELSE CHTPS="DEPOT" 
2245 LPRINT 


2250 LPRINT SPC) 

2260 LPRINT SPC(30)" ÿ 

2270 LPRINT SPC (30) =" 
2278 LPRINT 

2280 LPRINT "LE : 

2290 LPRINT * 
I 

2295 LPRINT CHRS(15):MIDTH "LPTI:",136 

2300 LPRINT:LPRINT 

2310 LPRINT "ps :FOR I=1 TO 20:LPRINT "5 :NEÂT L'LPRINT "p'i:FOR I21 TO 20:LPRI 

NT "-"; NET 

2315 LPRINT “g's:FOR 121 TO 80:LPRINT "";:NENT L'LPRINT "y'i:FOR [21 TO 10:LPRI 
NT "="; :NEUT LELPRINT "j” 

2320 LPRINT "|";:LPRINT SPC(7)"CREDIT'; :LPRINT SPC(7)" |"; :LPRINT SPC(7)" DEBIT'; 
“LPRINT SPC(7)"|";:LPRINT SPC(37) "VALEUR"; :LPRINT SPC(37)" |"; :LPRINT SPC(3)"DATE 
“;:LPRINT A 
2330 LPRINT "F5: FOR 121 TO 20:LPRINT "5 :NEUT L'LPRINT "fi :POR 121 TO 20:LPRI 

NT "—";:NBIT 

2340 LPRINT sh 3tPOR I=1 TO BOSLPRINT "-";:NEUT I:LPRINT "{";:FOR I=1 TO 10:LPRI 

NT "-"; NET L'LPRINT d 
2380 OPEN "!",#1,FICHIERS 

2390 MHILE NOT EOF(1) 

2400 INPUT #1,CREDITACT,CREDIT,DEBIT, VALEURS ,DATS, NE 

2405 IF NE=0 THEN 2450 

2410 LPRINT "|"; :LPRINT USING " ###########f.## F ";CREDIT; 
2420 LPRINT "|"; :LPRINT USING " ############.## F ";DEBIT; 
2430 LPRINT "|"; :LPRINT USING "\ 


"DATES; " \ COMPTE PUR 


i3FOR I=1 TO LEN(CHTPS):LPRINT "="; :NEIT 


\"; VALEURS; 
2440 LPRINT "| "s:LPRINT USING *\ \"3DATS PRINT |" 
2450 WEND 
2460 LPRINT "L";:POR I=1 TO 20:LPRINT "-";:NEXT L'LPRINT "4"; :FOR I=1 TO 20:LPRI 
NT "-"; NET I 


2463 LPRINT "1"; :FOR I=1 TO 80:LPRINT "-";:NEÏT L'LPRINT. "1"; : FOR I=1 TO 10:LPRI 
NT "5; NBAT LELPRINT "2" 
2465 PRINT 


2470 LPRINT SPC(51)" : 

2475 LPRINT spc(51)"| CREDIT ACTUEL | “ii LPRINT USING "#######.## F ";CREDITACT 
se LPRINT * |" 

2478 LPRINT SPC (51) " 

2480 CLOSE #1 

2490 LPRINT CHR$(12) 

2520 GOTO 410 

2530 


2560 COLOR 14,0 

2563 FOR 122 TO 78:LOCATE 23,1: PRINT "="; :NENT I 

2564 FOR 1=2 TO 21:LOCATE 1,1:PRINT "=";: EI I 

2565 FOR 1256 TO 78:LOCATE 1,1:PRINT "="; :NEIT I 

2566 FOR 122 TO 22:LOCATE I,1:PRINT " J''LOCATE 1,79:PRINT "J":NEUT ! 
2567 LOCATE 1,1:PRINT ER :LOCATE 1,79:PRINT "3" 

2568 LOCATE 23,1:PRINT "E":LOCATE 23,79:PRINT "4" 


2570 LOCATE 1,22 PRINT ——————————©—" 
2580 LOCATE 2,22:PRINT ln 
2590 LOCATE 3,22 PRIT —————————————— 
2600 COLOR 3,0 

2610 RETURN 

2620 LOCATE 10,6:PRINT "MOIS :" 

2630 LOCATE 10,35:PRINT “ANNEE :" 

2640 LOCATE 10,50:PRINT "DATE (m/j/a) :" 

2650 LOCATE 10,65:PRINT DATES 

2660 LOCATE 12,6:PRINT "COMPTE COURANT ou DEPOT (C/D) :" 


2670 RETURN 

2680 FICHIBRS=LBFTS (NOISS,1)+RIGHTS(MOIS$, 1 )+RIGHTS (ANNEES, 2)+CONPTES 
2690 RETURN 

2700 COLOR 0,7:LOCATE 21,15:LINB INPUT VALBURS 

2710 LOCATE 21,64:LINE INPUT DATS 

2715 NB=NB+1 

2720 WRITB #2,CRBDITACT, CREDIT, DEBIT, VALEURS ,DATS,NE 
2722 CREDIT=0:DEBIT=0 

2725 COLOR 3,0 

2730 LOCATE 16,58:PRINT " 

2740 LOCATE 21,15:PRINT " 

2750 LOCATB 21,64:PRINT " 

2770 RETURN 

2780 IF BRR257 AND BRL=2240 THEN 2790 ELSB 2840 

1790 PRINT CHRS(7) 


1800 LOCATB 22,24:COL0R 0,4:PRINT " L'IXPRIMANTE N'BST PAS ALLUKEE “:COLOR 3,0 


2810 ROR T=1 TO 2500:NBT T 

2820 LOCATE 22,24:PRINT " j 
1830 RESUME 2220 

2840 IF BRR=27 THEN 2850 BLSE 2900 - 

1850 PRINT CHRS(?) 


2860 LOCATB 22,23:COL0R 0,4:PRINT " PLUS DE PAPIER DANS L'IMPRIMANTE ":COLOR 3,0 


2870 FOR T=1 TO 2500:NEIT T 

1880 LOCATB 22,23:PRINT " * 
2890 RESUME 

1900 IP BRR253 THBN 2901 BLSB 3020 

2901 IR ERL=1020 THEN GOSUB 2910 BLSE 2904 
2902 RESUME 830 

1904 IP BRL=1940 THEN GOSUB 2910 ELSE 2907 
1905 RESUMB 1820 

2907 IF BRL=2370 THEN GOSUB 2910 ELSE 2909 
2908 RBSUMB 2090 

2909 IF BRL=3940 THEN RESUME 3660 ELSE 410 
2910 PRINT CHR$(?) 

2920 LOCATE 22,30:COL0R 0,4:PRINT " FICHIER NON TROUVE *:COLOR 3,0 
1930 FOR T=1 TO 2500:NEÏT T 

2940 LOCATE 22,30:PRINT * s 
2950 RETURN 

3020 IF ERR=61 THEN 3030 BLSE 3130 

3030 IF BRL=740 THEN GOSUB 3080 BLSE 3060 

3040 RESUME 590 

3060 IP BRL=1040 THEN GOSUB 3080 ELSE 410 

3070 RESUME 830 

3080 PRINT CHRS(7) 

3090 LOCATE 22,31:COLOR 0,4:PRINT " DISQUETTE PLEINE ":COLOR 3,0 
3100 FOR T=1 TO 2500:NEÂT T 

3110 LOCATE 22,31:PRINT * É 
3120 RETURN 

3130 IF BRR=64 THBN 3140 BLSB 3280 

3140 IP BRL=740 THEN GOSUB 3230 BLSE 3170 

3150 RESUME 590 

3170 IF BRL=1020 THEN GOSUB 3230 BLSE 3200 
3180 RESUME 830 

3200 IF ERL=1940 THEN GOSUB 3230 BLSE 410 

3210 RESUME 

3230 PRINT CHRS(7) 

3240 LOCATE 22,92:COLOR 0,4:PRINT " NOK INCORRECT ":COLOR 3,0 
3250 FOR T=1 TO 2500:NEXT T 

3260 LOCATE 22,32:PRINT " ÿ 

3270 RETURN 

3280 IF BRR=70 THEN 3290 BLSB 3380 

3290 IF BRL=740 THEN GOSUB 3330 BLSB 3310 

3300 RBSUME 590 

3310 IF BRL=1040 THEN GOSUB 3330 ELSE 410 

3320 RESUME 830 

3330 PRINT CHR$(?) 


3340 LOCATE 22,24:COLO0R 0,4:PRINT " DISQUETTE PROTEGBE EN BCRITURE ":COLOR 3,0 


3350 FOR T=1 TO 2500:NET T 

3360 LOCATE 22,24: PRINT * 

3370 RETURN 

3380 IP BRR=71 THBN 3390 BLSB 3510 

3390 IP ERL=740 THBN GOSUB 3470 ELSE 3410 

3400 RESUME 590 

3410 IF BRL=1020 THEN GOSUB 3470 BLSE 3430 

3420 RESUME 830 

3430 IR BRL=1940 THEN GOSUB 3470 ELSB 3450 

3440 RESUME 1820 

3450 IP BRL=2370 THEN GOSUB 3470 BLSB 410 

3460 RESUME 2090 

3470 PRINT CHR$(7) 

3480 LOCATB 22,29: COLOR 0,4:PRINT " DISQUETTE PAS PRBE ":COLOR 3,0 
3485 POR T=1 TO 2500:NEUT T 

3490 LOCATE 22,29:PRINT * ; 
3500 RETURN 

3510 IF BRL=740 THBN 3520 BLSB 410 

3520 PRINT CHR$(?) 

3530 LOCATE 22,28:COLOR 0,4:PRINT " FICHIER DEJA BAISTANT ":COLOR 3,0 
3540 POR T=1 TO 2500:NEIT T 

3550 LOCATE 22,28:PRINT " 

3560 RESUME 590 ù 


3600 COMPTES="C" 

3610 TBST=0:FLAG=0 

3620 MO$=LEFTS (DATES, 2) :HO=VAL(NO$) 

3630 JO$=KIDS (DATES, 4,2) :JO=VAL(J0$) 

3640 ANS=RIGHTS(DATBS,4):AN=VAL(ANS) 

3650 GOTO 3670 ; 
3660 LOCATE 15,22:COL0R 0,3:PRINT * CREATION AUTOMATIQUE NOUVBAU NOIS ‘ 
3661 LOCATE 17,30:COLOR 31,6:PRINT " Patientez S.V.P.., ":COLOR 3,0 
3663 HO=M0-1:IP MO=0 THEN 3665 BLSE 3670 

3665 N0=12:AN=AN-1 

3670 IF NO=1 THEN NOIS$="JANVIER" 

3680 IP NO=2 THBN MOIS$="FEVRIER" 

3690 IP MO=3 THBN MOIS$="NARS" 

3700 IF NO=4 THBN NOIS$="AVRIL" 

3710 IF NO=5 THEN MOIS$="XAI" 

3720 IF N0=6 THEN MOIS$="JUIN" 

3130 IR NO=7 THBN MOIS$="JUILLET" 

3740 IP NO=8 THBN NOIS$="AOUT" 

3750 IF NO=9 THEN NOIS$="SEPTENBRE" 

3760 IF NO=10 THEN NOIS$="OCTOBRE" 

3770 IF MO=11 THBN MOIS$="NOVBABRE" 

3780 IF NO=12 THEN MOIS$="DECBNBRE" 

3790 ANNEB$=STR$ (AN) 

3800 GOSUB 2680 

3805 IF PLAG=0 THEN 3940 

3810 IF TEST=1 THEN 3680 

3820 OPEN *I",#1,PICHIERS 

3830 WHILE NOT BOP(1) 

3840 INPUT #1,CREDITACT, CREDIT, DEBIT, VALBURS ,DATS,NE 
3650 WEND 

3860 CLOSB #1:CREDIT=0:DBBIT=0:VALEUR$="":DATS="":NE=0 
3870 NO=NO+1:IP NO=13 THEN 3875 ELSB 3878 

3875 NO=1:AN=AN+! 

3878 TBST=1:G0T0 3670 

3880 OPEN “O",#1,FICHIERS 

3900 WRITE #1,CREDITACT, CREDIT, DBBIT, VALEURS, DATS,NE 
3910 CLOSB #1 

9915 SHBLL DRIVBRS+"ATTRIB +R "+FICHIBRS 

3920 IR COMPTB$="D" THEN RETURN 

3930 COXPTB$="D':GOTO 3610 

3940 FLAG=1:0PEN “I",#1,FICHIERS:CLOSE #1 :RETURN 


DFA 


INTERROGATIONS dBASE 


Qui n'a pas au moins entendu parler de dBase ? Celui-ci est un 
programme de gestion de base de données, ceci veut dire de grandes 


possibilités d'interrogations. 


Une base de données relationnelle est un 
programme permettant de gérer des 
fichiers en les organisant sous forme de 
table ou tableau possédant des 
informations de même nature dans 
chacune de ses colonnes ; chaque ligne 
de ce tableau peut être vue comme une 
fiche. 

C'est aussi un outil permettant d'isoler ou 
retrouver rapidement des informations en 


spécifiant des critères de recherches 


selon le contenu d'une ou plusieurs 
colonnes : Dans un fichier de client "Qui a 
un compte débiteur ?", ou "Qui habite sur 
Paris ?", dans un stock "Combien reste-t-il 
de boulons de 12 ?", … 

Prenons un exemple pour explorer 
ensemble les possibilités d'interrogation 
qu'offre "dBase”, et les produits qui lui sont 
compatibles. 


LA CREATION DE NOTRE EXEMPLE. 


Imaginons que nous soyons à la tête 
d'une bibliothèque, et que nous 
souhaitions gérer les mouvements de nos 
livres. Nous pouvons alors créer un fichier 
qui contiendra les références à chacun de 
nos livres (un thème, un auteur, un titre) 
ainsi que les dates de sortie et de retour 
de chaque livre. D'autre part une colonne 
ne pouvant contenir que les abréviations 
de "Oui" ou “Non' nous permettra de 
savoir si le livre est disponible ou s'il a été 
sorti de la bibliothèque. 

En démarrant dBase, depuis le DOS avec 
la commande "DBASE", vous allez en 
général obtenir un menu vous permettant 
de commencer à travailler avec ce logiciel 
: Il s'agit du mode d'assistance. Celui-ci 
permet de commencer à travailler, mais 
limite les possibilités de dBase. 

Pour échapper à ce mode d'assistance, 
frappez sur la touche "Escape* qui doit 
vous ramener à un mode de dialogue 
direct : le mode interactif. Votre écran doit 
s'effacer et vous devez voir apparaître un 
point vous signalant que dBase est à 
votre disposition pour exécuter n'importe 
quelle demande que vous pouvez lui 
formuler. Sachez qu'il y a moyen de 


‘configurer dBase pour qu'il démarre 


automatiquement avec ce mode de 
fonctionnement. 

Le première chose à faire consiste à créer 
le fichier, c'est à dire déclarer à dBase la 
nature et le type du contenu de chacune 
de ces colonnes. Pour cela nous allons 
utiliser la commande "CREATE" suivi d'un 
nom permettant ultérieurement de 
retrouver ce fichier : 


pour “True” (Vrai). Par contre si le livre 
n'est pas disponible, nous le remplirons 
avec “N” pour “Non' ou ‘F" pour "False" 
(Faux). 
Pour terminer la description du fichier 
"LIVRES" vous appuyez en même temps 
sur les touches "Ctrl" et “End”. ‘dBase" 
vous demande alors si vous souhaitez 
commencer à mettre des informations 
dans ce fichier ; vous pouvez répondre 
par l'affirmative en appuyant sur la lettre 
"O", et commencer à introduire les fiches 
du listing ci-dessous. 
Rappelons ici quelques commandes de 
base qui permettent de mettre à jour un 
fichier : 
APPEND Pour ajouter des | 
enregistrements (et modifier les 
enregistrements existants), . EDIT : 
Permet de modifier les enregistrements 


[ CREATE LIVRES | 


= 


Type Dim Dec 
Caractère 
Caractère 
Caractère 
Numérique 5 
Logique 1 
jh Date 8 
DATE RENDU Date 8 


Nom champ Type Dim Dec 


[CREATE I <D:>IILIVRES Champ: 1/7 I | Mial 


La commande "CREATE" nous permet de 
remplir un tableau de la même nature que 
ci-dessus. : 

Un champ désigne le contenu d'une 
colonne sur une ligne, leurs noms 
permettent donc d'identifier chaque 
colonne. Pour une ligne, ou une fiche, 
donnée le champ "TITRE" permettra par 
exemple d'enregistrer "20000 LIEUES 
SOUS LES MERS, et le champ ‘THEME’, 
"SF comme science fiction. 


A chaque champ est aussi associé un: 


type d'information (par exemple : du 
texte, des nombres, des dates) et une 
dimension, c'est à dire un nombre 
maximum de caractères ou chiffres. Pour 
les champs numériques, il faut aussi 
préciser le nombre de chiffres après la 
virgule (le nombre de décimales). 

Dans la structure, ci-dessus, de notre 
fichier "LIVRES" vous devez aussi 
remarquer un champ "DISPO" de type 
"Logique". Ceci signifie que ce champs 
ne pourra prendre que les valeurs “Vrai 
ou "Faux". Si le livre est disponible, nous 
remplirons ce champ avec l'un des 
symboles suivants : "O" pour "Oui" ou ‘T' 


existants, . BOWSE : Présente le fichier 
sous forme de table à l'écran, pour le 
visualiser ou le modifier. 

Un fois l'une de ces commandes activée, 
les touches avec des flèches permettent 
de se déplacer de champ en champ, de 
fiche en fiche, et de modifier les 
informations. 

Pour terminer le travail avec l'une de ces 
commandes vous appuyez soit sur les 
touches "Ctrl" et "Fin" pour valider les 
modifications, soit sur la touche "Esc” 
pour annuler la dernière modification. 
Vous vous trouvez alors avec l'indicatif de 
disponibilité de dBase, le point. 
N'éteignez jamais votre ordinateur alors 
que vous venez de modifier un fichier (le 
disque serait dans un état lamentable), 
mais sortez d'abord de dBase avec la 
commande "QUIT”. Celle-ci rendra la main 
au DOS après avoir enregistré toutes les 
informations. 

Lorsque vous appellerez dBase de 
nouveau, utilisez la commande “USE 
LIVRES" pour signifier à dBase que vous 
voulez travailler de nouveau avec le 
fichier "LIVRES". 


IDIÉREE 


PREMIERE EXPLORATION DU 
| FICHIER. 


Les deux commandes de base pour 
| visualiser le contenu d'un fichier sont 
| "LIST" et "DISPLAY" (visualise). 
"LIST" permet de faire défiler à l'écran tout 
| le contenu du fichier, comme le montre le 
| listing ci-après. "DISPLAY", quant à lui, si 
| on ne lui précise rien de plus, ne montre 
| qu'un enregistrement à la fois. 
| Lorsque "DISPLAY" est utilisé avec le 
| paramètre "ALL", il va vous permettre lui 
aussi de visualiser tout le fichier, 
cependant "DISPLAY ALL" va faire une 
pause toutes les 20 lignes, et va attendre 
| la frappe d'une touche. "LIST" par contre 
_ | ne fait pas ces pauses, sur un fichier de 
_ | plus de 20 lignes il ne reste à l'écran que 
les 20 dernières lignes. 


_| En examinant ce listing, remarquez que le 
contenu de la colonne "DISPO" est soit 
|".F", soit ".T'. À moins d'être en 
| saisie/modification de fiche, dBase 


_ encadre, et demande d'encadrer, ces 


valeurs logiques par deux points. 
Dans le cadre de notre exemple, vous 
allez rencontrer un problème lors de 
l'exécution de ces commandes : le listing 
| fait plus de 80 colonnes de large et la 
présentation va souffrir de retours à la 
| ligne inattendus. 

Pour pallier à ceci, vous pouvez ne faire la 
liste que des colonnes qui vous 
intéressent en en précisant le nom : Ÿ 


. LIST Enreg # 
THEME AUTEUR TITRE 
POESIE B 
JEU PA 
POLICIER 
POLICIER 
POLICIER 
JEU 
POESIE 


© © -J Oo OU = WW NN + 


POLICIER 
POLICIER 
POLICIER 


SF LE CHASCH 


SF DE LA TERRE À LA LUNE 
SF LE MONDE DES NON AS 
sr 20000 LIEUES SOUS LES MERS 


LES FLEURS DU MAL 

APPRENEZ A MIEUX JOUER AU BR 
10 PETITS NEGRES 

LE SAINT A MIAMI 

LE SAINT CONTRE M Z 

BRIDGE D'AUJOURD ' HUI 

LE PETIT PRINCE . 

TINTIN AU CONGO 

TINTIN EN AMERIQUE 

LE TREFLE BLEU (ANGLAIS) 
TRAITE DE JEU DE GO 1+2 

LES CONFIDENCES D'ARSENE LUP 
ARSENE LUPIN GENTLEMAN CAMBR 
ARSENE LUPIN CONTRE HERLOCK 
SF TERRE CHAMP DE BATAILLE 1+2 


RECHERCHES DANS UN FICHIER. 


Les commandes dBase qui permettent 
de parcourir un fichier, par exemple "LIST" 
ou "DISPLAY", supportent des 
compléments permettant de ne travailler 
qu'avec une partie du fichier. 

L'un de ces complément est introduit par 
le mot "FOR" suivi d'une valeur logique. 
"FOR" permet de ne pre ndre en 
considération que les enregistrements 
pour lesquels cette v aleur log  ique est 
vraie. Ainsi, si nous désirons la liste des 
livres disponibles : 


| . LIST THEME, AUTEUR, 
TITRE FOR DISPO Enreg # T 


JEU 
POLICIER L 


valeurs d'autre type. Vous avez à votre 
disposition les opérations suivantes : 


< pour plus petit que, <= pour plus petit 
que ou égal à, > pour plus grand que, 
>= pour plus grand que ou égal à, # ou 
<> pour différent de. 


Ces opérations permettent de faire la 
comparaison entre deux valeurs dBase 
de même type, quelque soit ce type. 


Quelques explications supplémentaires 
sont nécessaires en ce qui concerne la 
comparaison de texte. 


HEME AUTEUR TITRE 


POESIE B LES FLEURS DU MAL 
APPRENEZ A MIEUX JOUER AU BR 


O0 PETITS NEGRES 


POLICIER LE SAINT A MIAMI 
BD TINTIN EN AMERIQUE 


JEU 

JEU 
POLICIER 
POLICIER 
SF 

SF 

BD 


Tous les champs n'étant pas de type 
logique, dBase vous permet de construire 
des expressions logiques à partir de 


PAGES DISPO DATE PRET DATE RENDU 

185 .T. 20/02/89 28/02/89 
575 .T. 18/01/89 20/03/89 
16/03/89 09/03/89 
20/03/89 15/03/89 
15/03/89 12/03/89 
10/03/89 09/03/89 
21/03/89 19/03/89 
22/03/89 22/03/89 
21/03/89 21/03/89 
20/02/89 22/03/89 
11/02/89 14/03/89 
18/03/89 07/03/89 
17/03/89 19/03/89 
14/03/89 19/03/89 
22/03/89 21/03/89 
17/03/89 15/03/89 
22/03/89 17/03/89 
20/03/89 19/03/89 
14/02/89 02/03/89 


ta 59 La La Le 2 0 0 


LE TREFLE BLEU (ANGLAIS) 
TRAITE DE JEU DE GO 1+2 
ARSENE LUPIN GENTLEMAN CAMBR 
ARSENE LUPIN CONTRE HERLOCK 
DE LA TERRE À LA LUNE 

20000 LIEUES SOUS LES MERS 
ASTERIX LEGIONNAIRE . 


Un texte exprimé de manière littérale 
comme "SF" doit être encadré par des 
rte ou des crochets (SF, ‘SF' ou 
SF]). 

Si les textes ne sont pas de la même 
longueur, dBase ne compare que les 
premiers caractères (ceci est une option 
qui peut être modifiée). Ainsi les textes 
"APPRENEZ" et "APPR" sont considérés 
comme étant égaux. 

Les majuscules et les minuscules sont 
différentes ; ainsi les textes "APPRENEZ" 
et "Apprenez" sont différents. Les 
majuscules sont classées avant les 
minuscules, nous avons : "A" < "7" < "a" < 
"z". (Conclusion, *APPRENEZ" vient avant 


Apprenez"). 


Le problème des accents 


Il est parfois nécessaire de conserver les 
accents, en particulier sur les noms 
propres. Le poids ASCII des lettres 
accentuées est tel qu'il n'y a pas respect 
de l'ordre lexicographique et donc 
impossibilité d'effectuer un classement 
correct. Ainsi M onsieur Geté sera classé 
après Monsieur Gety car le poids ASCII 
du é est plus grano que y. Seul à notre 
connaissance Foxbase résout ce 
problème à l'aide du module 
“european.mem. 


. LIST THEME, AUTEUR, TITRE FOR PAGES > 300 Enreg # 


THEME AUTEUR TITRE 


2 JEU PA 


APPRENEZ A MIEUX JOUER AU BR ... 


. LIST THEME, AUTEUR, TITRE FOR THEME = "SF" Enreg # 


THEME AUTEUR TITRE 


ÉSRÈSE LRH 


dBase permet aussi de combiner 
plusieurs résultats logiques grâce aux 
opérations ".AND.", ".OR." et ".NOT.". Le 
résultat de deux valeurs logiques 
combinées avec *. AND." sera vrai si l'une 
et l'autre est vraie ; celui de deux valeurs 
combinées avec "OR." sera vrai si l'une 
ou l'autre est vraie. . LIST THEME, 
AUTEUR, TITRE FOR AUTEUR = "JV" 
AND. PAGES <= 400 Enreg # THEME 
AUTEUR TITRE 16 SF JV2 
LE CHASCH 


TERRE CHAMP DE BATAILLE 1+2 ... 


intéressante est "DELETED() ; celle- ci 
renvoie la valeur vraie si la fiche est 
marquée pour être effacée. "LIST FOR 
DELETED()' visualise toutes les fiches qui 
vont être détruites lors de la prochaine 
commande de compactage du fichier. 

Le complément “FOR expression logique” 
peut aussi être mis à une commande telle 
que ‘“EDIT'. Seules seront alors 
accessibles en édition les fiches qui 
obéissent à la clause "FOR". Par exemple 
"EDIT FOR THEME = "SF" vous permettra 


. LIST THEME, AUTEUR, TITRE FOR AUTEUR = "JV" .OR. AUTEUR = "V 


Enreg # 
THEME 
16 SF 


AUTEUR TITRE 


LTHASE 
18 SF 
19: SF 


La première question demande la liste 
des ouvrages dont le code auteur est "JV" 
et dont le nombre de pages est inférieur à 
400 : la deuxième question demande la 
liste des ouvrages dont le code auteur 
commence par “JV ou par “VV”. 
Remarquez que cette deuxième question 
n'a pas été formulée “.… FOR AUTEUR = 
"JV" .OR. "VV". Ceci n'aurait rien voulu 
dire, car "AUTEUR = "JV" forme bien un 
résultat logique, mais pas "VV". Il est 
donc impossible de combiner ces deux 
éléments par un "OR. 

Nous pouvons élargir les possibilités de 
recherches dans la base de données en 
utilisant des fonctions dBase. Celle-ci 
sont des expressions dBase, possédant 
un mot clef, comme les commandes, et 
éventuellement des paramètres mis entre 
parenthèses. Ces parenthèses sont 
nécessaires, même si aucun paramètre 
n'est nécessaire à cette fonction. 

Une première fonction digne d'intérêt est 
"UPPER (texte)'. Celle-ci convertit en 
majuscule un texte qui peut contenir des 
minuscules. Ceci peut être utile pour 
atténuer l'effet de certaines erreurs de 
frappe. 

Ainsi, "LIST … FOR UPPER(TITRE) = 
"ARSENE LUPIN"" va permettre de 
retrouver les fiches dont le titre 
commence par "ARSENE LUPIN", même 
si celui-ci est écrit en minuscule. 

Une autre fonction qui peut être 


= 


LE CHASCH 

DE LA TERRE A LA LUNE 

LE MONDE DES NON AS 

20000 LIEUES SOUS LES MERS 


de ne modifier que les fiches des livres 
de science fiction. 

Les commandes qui parcourent un fichier 
dBase, comme "LIST", "DISPLAY" et "EDIT" 
possèdent d'autres compléments que 
nous verrons ultérieurement permettant 
de voir d'une manière différente ce fichier. 
Ces commandes seront en fait beaucoup 
plus exploitables sur les fichiers triés. 


RECHERCHE D'UN 
ENREGISTREMENT DANS UN 
FICHIER. 


Le problème ici est différent, nous 
désirons obtenir le premier 
enregistrement obéissant à un critère 
donné, puis éventuellement les 
enregistrements suivants. 

Nous avons deux possibilités pour ceci : 
conserver le fichier ‘en vrac”, ou bien 
mettre en place des critères de tris qui 
vont permettre d'accélérer les 
recherches. 

La méthode lourde qui peut donner 
satisfaction avec de petits fichiers en 
vrac, utilise deux commandes : 


"LOCATE FOR ..." et "CONTINUE" : 

12 . DISPLAY TITRE Enreg # TITRE 
12 LES CONFIDENCES D'ARSENE LUP . 
13 . DISPLAY TITRE Enreg # TITRE 


14 . DISPLAY TITRE Enreg # TITRE 
14 ARSENE LUPIN CONTRE HERLOCK 


. LOCATE FOR AUTEUR = "ML" Enreg = 
CONTINUE Enreg 
13 ARSENE LUPIN GENTLEMAN CAMBR . CONTINUE Enreg = 


. CONTINUE Fin de sélection LOCATE. . 


Le "LOCATE FOR ..." permet de trouver le 
premier enregistrement répondant au 
critère de recherche, les "CONTINUE" 
permettent de passer aux 
enregistrements suivants. Le fichier 
n'étant pas trié, les recherches sont 
exécutées en examinant toutes les fiches. 


TRIS ET CRITERES DE RECHERCHE. 


Avec dBase, nous pouvons trier 
physiquement un fichier sur disque, mais 
ce n'est pas la possibilité que nous allons 
prendre en considération. 

Examinons la mise en place d'un critère 
de recherche qui nous permettra de 
considérer le fichier comme étant trié. 

Le terme technique pour ce critère de 
recherche est “indexation”. Une indexation 
consiste à créer un deuxième fichier 
beaucoup plus petit que le premier dans 
lequel les critères de tris (par exemple le 
nom de l'auteur) est trié, et à coté duquel 
se trouve le numéro de la fiche. 

On peut faire une analogie avec la 
manière dont une bibliothèque est gérée 
Sur les étagères se trouve les livres, qui 
peuvent être assimilés à notre fichier de 
données. A l'entrée de la bibliothèque se 
trouve une boîte à fiches où tout les livres 
sont enregistrés avec leur numéro 
d'étagère. Une recherche est beaucoup 
plus facile à faire dans cette boîte à fiches 
qu'au travers de toutes les allées de la 
bibliothèque. 
Pour construire un index avec dBase, 
vous utilisez la commande "INDEX" : 


+ INEX ON AUTEUR TO IND.AUT 100$ indexé (s) . 
21 Enregistrements indessé (s). . 
LIST THEM, AUIELR, TITRE Enreg # ‘THEM ‘AUIELR TIIRE 


LES FIELRS DU MAL 


Comme le montre le début de listing ci-. 
dessus, la création de l'index permet de 
considérer le fichier comme trié sur le 
critère "AUTEUR". Cependant, la première 
colonne, celle des numéros de fiches 
montre que ceux-ci ne se suivent pas, le 
fichier de données n'est donc pas trié 
physiquement. 

Le complément "ON" de la commande 
‘index permet d'introduire le critère de tri, 
le complément "TO" indique le nom du 
fichier d'index. Ceci va nous permettre de 
construire plusieurs index pour un même 
fichier de données. 

Le critère d'indexation peut faire appel à 


-des fonctions dBase, ainsi pour laisser 


une liberté de présentation (majuscules 
ou minuscules) dans le contenu des 


DIRE 


fiches, nous pouvons utiliser la 
commande "INDEX ON UPPER(AUTEUR) 
TO IND_AUT". 

La recherche dans un fichier indexé peut 
alors se faire très rapidement par l'une 
des deux commandes “SEEK" ou FIND". 
La différence entre ces deux commandes 
est assez subtile, et concerne 
principalement la personne qui 
programme sous dBase. Ÿ 


AUTEUR 
VO 
9" 


TITRE 


DISPLAY AUTEUR,TITRE, THEME Enreg # 


AUTEUR 
19 JV 


TITRE 


AUTEUR 
15 LRH 


TITRE 


AUTEUR 
AAC 
Lou 
10 BG LY 


TITRE 


AUTEUR 
8 HERGE 
SG HERGE 
20 U+G 


TITRE 


AUTEUR 
3 AC 
19 JV 
2 PA 


TITRE 


Dans cet exemple, vous devez remarquer 
l'apparition d'un nouvelle commande 
"SKIP". Celle-ci fonctionne que nous 
soyons indexés ou non, elle permet de 
passer à l'enregistrement suivant. 
Lorsqu'un index est en cours d'utilisation, 
toute modification faite dans le fichier de 
données et répercutée dans l'index. Ainsi 
si lors d'une commande “EDIT”, on 
modifie le code de l'auteur de la fiche 19, 
en "VJ", la fiche semblera se déplacer 
pour aller se ranger à la fin du fichier. 

Pour que cette mise à jour se fasse, il faut 
penser à déclarer l'index à chaque 
nouvelle utilisation du fichier de données : 
"USE LIVRES INDEX IND_AUT", ou bien si 
le fichier est déjà actif, mais pas encore 
l'index : "SET INDEX TO IND_AUT. 


21 Enregistrements indexé (s). 
LIST AUTEUR, TITRE, THEME NEXT 3 Enreg # 


10 PETITS NEGRES 
LES FLEURS DU MAL 
LE TREFLE BLEU (ANGLAIS) JEU . SET ORDER TO 2 Index maître : IND THEM.NDX . GO TOP 
. LIST AUTEUR, TITRE, THEME NEXT 3 Enreg # 


TINTIN AU CONGO 
TINTIN EN AMERIQUE BD 
ASTERIX LEGIONNAIRE 

. LIST AUTEUR, TITRE, THEME NEXT 3 Enreg # 


10 PETITS NEGRES 
20000 LIEUES SOUS LES MERS 
APPRENEZ À MIEUX JOUER AU BR JEU . 


OPTIMISATION D'UNE RECHERCHE. 


Supposons que nous désirions optimiser 
la commandes "LIST … FOR AUTEUR = 
“JV” alors que nous travaillons avec un 
gros fichier. 

Comme nous venons de le voir, une 
commande "SEEK" ou "FIND" nous permet 
dé nous positionner plus rapidement 
dans un fichier indexé. Il nous faut 


+ FIND "JV" . DISPLAY AUTEUR, TITRE, THEME Enreg # 


THEME 


DE LA TERRE À LA LUNE . SF . SKIP Enreg. No 


THEME 


20000 LIEUES SOUS LES MERS SF . SEEK "LR" 
DISPLAY AUTEUR, TITRE, THEME Enreg # 


THEME 


TERRE CHAMP DE BATAILLE 1+2 SF . 


. USE LIVRES INDEX IND_.AUT . INDEX ON THEME + AUTEUR TO IND THEM 100% indexé (s). 
21 Enregistrements indexé (s). . INDEX ON UPPER(LEFT (TITRE, 10)) TO IND TITR 100% indexé (s). 
+ SET INDEX TO IND AUT, IND THEM, IND TITR . 


THEME 
POLICIER 
POESTE 


THEME 
BD 


THEME 
POLICIER 
SF 


LISTING 4 


THEME 
17 SF 
19 SF JV 
16 SF JV2 
4 , POLICIER IC 


AUTEUR TITRE 


BD . SET ORDER TO 3 Index maître : IND TITR.NDX . GO TOP 


.+ FIND "JV" . LIST AUTEUR, TITRE, THEME WBILE AUTEUR = "JV" Enreg # 


AUTEUR TITRE THEME 
LI IV DE LA TERRE A LA LUNE SF 
19 JV 20000 LIEUES SOUS LES MERS SF 
16 JV2 LE CHASCH SE 


FIND "JV" . LIST THEME, AUTEUR, TITRE NEXT 4 Enreg # 


DE LA TERRE À LA LUNE 
20000 LIEUES SOUS LES MERS 
LE CHASCH 

LE SAINT A MIAMI . 


maintenant pouvoir lister les fiches 
suivantes. 
La commande liste possède deux autres 
types de complément "WHILE expression 
logique”, et"NEXT nombre’. Le premier de 
ces compléments permet d'exécuter la 
commande ‘LIST tant que l'expression 
considérée est vraie ; le deuxième permet 
d'examiner un nombre donné de fiches. 
(LISTING 4). 


TRAVAIL A PLUSIEURS INDEX. 


Avec ce que nous venons de voir, il peut 
sembler très intéressant de mettre à jour 
plusieurs critères de recherche à chaque 
modification du fichier, bien qu'un seul 
puisse effectivement être utilisé à la fois. 

Considérons que nous voulions attaquer 
notre fichier de données soit par le thème, 
soit par le code de l'auteur, ou les 
première lettres sur titre. Nous allons donc 
créer 3 fichiers d'index : L 


Commentons les opérations 
précédentes. 


La première commande “INDEX ON 
THEME + AUTEUR ..." constitue un nouvel 
index à partir de la juxtaposition du thème 
et du code de l'auteur. "+" est une 
opération dBase qui peut être faite sur 
des chaînes de caractères, le résultat 
étant la mise bout à bout des deux 


chaînes. Cette opération s'appelle 
concaténation. 

L'avantage d'une telle indexation est qu'à 
l'intérieur d'un même thème, le fichier 
apparaîtra trié par auteur. 


. USE LIVRES INDEX IND_ AUT, IND_ THEM,IND_ TITR . COUNT FOR AUTEUR = "JV " 


l2 Enregistrements compté (s). 
5 Enregistrements traité(s). 


WHILE THEME = "SF " 
THEME = "BD " 


Le deuxième index introduit une nouvelle 
fonction dBase "LEFT" qui permet d'isoler 


Fe caractères de gauche d'une chaîne : 


caractères. Ainsi 
“UPPER(LEFT(TITRE, 10)" prend en 
compte les 10 caractères de gauche du 
titre et les met en majuscules. 


Une fois tous nos index construits, nous 
demandons à dBase de les gérer par une 
version étendue de la commande "SET 
INDEX". Dans cette commande se trouve 
la liste des index à érer. Le premier de 
ces index "IND_AUT" est alors l'index 
maître, et les recherches dans le fichier 
sont faites d'après le critère de tri spécifié 
lors de la création de cet index. 

De la même manière, nous pouvons 
déclarer ces index lors d'une première 
utilisation d'un fichier avec "USE" : 


+ USE LIVRES INDEX IND AUT, 
IND_ THEM, IND TITR 


4 Enregistrements additionné (s). 


Ainsi "SET ORDER TO 2" permet de 
considérer le fichier comme étant trié par 
thème et auteur, "SET ORDER TO 3, de le 
considérer trié par titre, et "SET ORDER 
TO 3" par auteur. 


. SET ORDER TO 2 Index maître : 


Nous pouvons aussi utiliser "SET ORDER 
TO 0" pour n'utiliser aucun critère de tris, 
et voir le fichier comme si aucun index 
n'était déclaré, bien que ceux-ci 
continuent d'être mis à jour. 


QUELQUES STATISTIQUES SUR 
NOTRE FICHIER. 


dBase possède des commandes 
permettant d'extraire des statistiques 
dans un fichier : "Combien ai-je de livres 


pour tel auteur ?", "Quel est la taille 
moyenne d'un livre de science fiction ?, 
ou encore "Combien de pages de bandes 
dessinées avons-nous 7’. Voici quelques 
commandes permettant d'extraire ces 
informations : 


IND_THEM.NDX . 
PAGES 569 . 
PAGES 220 . 


champ numérique pour les fiches | 
concernées. | 


Voici les réponse à ces 


questions : | 


FIND "SF" . AVERAGE PAGES 


FIND "BD “ . SUM PAGES WHILE 


Dans cet exemple, nous avons utilisé les 

deux possibilités "FOR" ou "WHILE". Nous 
avons 2 livres de Jules Verne, un livre de 
science fiction fait en moyenne 569 
pages, et nous avons 220 un de 
bandes dessinées. 
Avant de conclure, signalons | une 
dernière possibilité ; supposons que nous 
ayons plusieurs questions à poser, et que 
toutes ces questions possèdent des 
critères communs. 

Par exemple, nous ne nous intéressons 
qu'aux livres disponibles, et pour ces 
livres nous désirons savoir : combien de 
Jules Verne, combien de … Cela peut 
paraître fastidieux dans toutes les 
questions que nous posons de spécifier à 
chaque fois : ".. FOR … .AND. DISPO". 
Nous pouvons alors demander à dBase 
de poser un filtre sur la base de données. 
Tous les enregistrements n'obéissant pas 
à la condition exprimée dans le filtre 
seront ignorés. La commande pour cela 
est "SET FILTER TO ….: | 


. USE LIVRES INDEX IND AUT,IND THEM, IND TITR . SET FILTER TO DISPO . LIST AUTEUR, TITRE, THEME Enreg # 


AUTEUR TITRE 


10 PETITS NEGRES 
LES FLEURS DU MAL 


THEME 
POLICIER 
POESTE 


LE TREFLE BLEU (ANGLAIS) JEU 
TINTIN EN AMERIQUE BD 
DE LA TERRE À LA LUNE SF 
20000 LIEUES SOUS LES MERS SF 


LE SAINT À MIAMI 
ARSENE LUPIN GENTLEMAN CAMBR POLICIER 


ARSENE LUPIN CONTRE HERLOCK 


POLICIER 


POLICIER 


APPRENEZ À MIEUX JOUER AU BR JEU 
TRAITE DE JEU DE GO 1+2 JEU 
U+G ASTERIX LEGIONNAIRE BD 


. COUNT FOR THEME = "POLICIER" 


La commande "SET ORDER numéro" 
permet de passer d'un index à l'autre. Les 
autres index sont mis à jour lors des 
modifications d'une fiche, et la recherche 
est effectuée grâce à l'index dont le 
numéro est spécifié dans le “SET 
ORDER". 


. COUNT (FOR / WHILE) : compte un 
nombre de fiche, : SUM 
Champ_numérique (FOR / WHILE) : 
Additionne le contenu de ce champ 
numérique pour les fiches considérées, . 
AVERAGE Champ_numérique (FOR / 


WHILE) : Caloule la moyenne de ce 


4 Enregistrements compté (s). 


Une fois l'exploitation de votre fichier faite, 
il ne vous reste plus qu'à frapper le mot 
“QUIT" pour quitter dBase, ou "USE ." | 
pour continuer à travailler avec un autre | 
fichier, travail pour lequel nous vous | 
souhaitons beaucoup de plaisir. 


Jean-Paul Pruniaux 
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AGENDA 


RENE 


PROGRAMME DE GESTION 


AGENDA est un programme écrit en GWBASIC, de gestion de fichiers à 
accès direct permettant de gérer son agenda personnel. Il s'utilise de 
facon très simple à l'aide du clavier et de menus déroulants qui 


Après lancement du programme, l'écran 
est divisé en 4 parties. La première en 
haut à gauche est utilisée pour l'affichage 
des menus. La seconde, à droite, est un 
simple rappel des touches utilisables en 
fonction des options. Cette aide reste 
affichée en permanence quel que soit 
l'option en cours. Toutefois un beep 
sonore empêche toute fausse manoeuvre 
au clavier. 

La partie basse de l'écran contient 2 
cadres. Le plus petit à droite est réservé à 
l'affichage des différents messages 
l'utilisateur (erreurs, 
confirmations, entrée d'informations 
nécessaires au programme). La partie la 
plus importante est celle consacrée au 
"travail" sur les fiches. C'est dans ce cadre 
qu'elles apparaîssent. La plupart des 
options des deux menus utilisent cette 
portion d'écran. 


LES MENUS DEROULANTS : 


- Dérouler un menu : pour ce faire, il faut 
appuyer sur la touche de tabulation, ce 
qui rend actif le titre du menu. Une fois 
celui-ci mis en évidence, la touche 
"ENTER: valide le choix et fait apparaître le 
menu correspondant avec toutes ses 
options. On peut passer d'un menu à 
l'autre même s'il est déjà déroulé en 
appuyant sur la touche de tabulation. 

- Sélectionner une option : en appuyant 
sur la barre d'espace, on fait se déplacer 
une barre grise sur les options. La touche 
"ENTER valide l'option choisie. 


| LES OPTIONS PAR MENU : 


| A) Menu Fichier : 


1) Lire : lecture du fichier. Les touches : ‘+ 
fiche suivante, ‘- fiche précédente, 'q' (ou 


| Q) quitter l'option Note : Si on tente une 


facilitent l'accès aux différentes options du programme. 


lecture après la fin du fichier ou avant la 
première fiche, un message avec beep 
sonore apparaît dans le cadre bas-droit 
de l'écran. 


2) Imprimer : impression complète du 
fichier L'imprimante doit être connectée 


8) Statut : statut du fichier Après validation 
de cette option, un tableau apparaît 
montrant le nom de chaque champ, leur 
type et surtout leur longueur, ce qui peut 
se révéler bien utile avant la saisie de 
fiches, par exemple. Le nom du fichier et 
le nombre de fiches qu'il contient sont 
également précisés. 


4) Effacer : efface le fichier AGENDA.DAT 
Cette option détruit le fichier contenu sur 
la disquette. Une confirmation est 
demandée. 


5) Retour DOS : retour définitif au système 
d'exploitation MS-DOS. Cette option fait 
sortir du programme et fait revenir 
l'utilisateur sous MS-DOS après fermeture 
du fichier. Pour accéder au programme, il 
faut recharger le GWBasic. 


6) Aller DOS : retour temporaire au 
système d'exploitation MS-DOS. Cette 
option abandonne momentanément le 
programme afin de permettre l'exécution 
d'une commande MS-DOS. On relance le 
programme en tapant la commande EXIT. 


B) Menu ‘Fiche : 

1) Ajouter : ajoute une fiche à la fin du 
fichier. Les noms des champs apparais- 
sent, il suffit de remplir la fiche en tapant 
les données puis en les validant avec 
"ENTER". 

Le champ "Date :" est automatiquement 
affecté de la date courante. A la fin de la 
saisie de la fiche, une confirmation est 
demandée. En cas d'erreur, on peut 
recommencer la saisie. Le fait de taper la 
lettre q (ou Q) dans le champ “NOM :* 
permet de quitter la saisie en cours. La 


confirmation de la fiche saisie entraîne le 
retour aux menus, ce qui implique qu'il 
faille à nouveau sélectionner cette option 
pour saisir une nouvelle fiche. 


2) Modifier : modifie les données d'une 
fiche. Après validation de cette option 
apparaît dans le cadre bas-droit de 
l'écran un message demandant si l'on 
désire accéder à la fiche à modifier par 
son numéro. Deux cas peuvent alors se 
présenter : 

a) l'utilisateur connaît le numéro de la 
fiche à modifier, dans ce cas, il tape ledit 
numéro afin de faire apparaître la fiche. 

b) l'utilisateur ne connaît pas le numéro 
de la fiche, il doit alors taper la valeur 0 
comme numéro de fiche. La première 
apparaît alors à l'écran et les touches ‘+' 
et ‘-" permettent d'accéder à la fiche 
désirée comme pour une lecture normale. 
Lorsque la fiche à modifier est affichée à 
l'écran, il faut appuyer sur la touche ‘m' 
(ou M). Une flèche apparaît alors en face 
du premier champ. Cette flèche peut être 
déplacée le long des champs (jusqu'au 
champ "Date :) avec la barre d'espace. 
Une fois que la flèche est correctement 
positionnée en face du champ à modifier, 
il faut appuyer sur la touche ‘ENTER. La 
donnée actuelle du champ s'efface de 
façon à permettre la saisie de la nouvelle 
donnée. La validation de cette nouvelle 
donnée entraîne l'apparition du message 
"Autre modification ? (O/N) permettant si 
besoin une nouvelle modification de 
champ dans la fiche. 

Remarque : on peut quitter l'option avant 
la modification en appuyant sur la touche 
‘q' (ou Q). 


3) Effacer : efface les données d'une 
fiche. La procédure est identique à celle 
décrite dans l'option “Modifier” jusqu'à ce 
que la fiche à effacer soit affichée à 
l'écran. Ceci fait, l'appui sur la touche ‘e' 
(ou E) entraîne l'effacement de la fiche. 
Par mesure de sécurité, une confirmation 
est demandée. 


4) Imprimer : imprime les données d'une 
fiche. La procédure est identique à celle 
décrite dans l'option "Modifier" jusqu'à ce 
que la fiche à imprimer soit affichée à 
l'écran. Ceci fait, l'appui sur la touche 
(ou |) lance l'impression de la fiche. 


5) Sélectionner : permet de sélectionner 
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des fiches en fonction d'un critère de 
choix. Après validation de cette option 
apparaît à l'écran les noms des champs 
ainsi qu'en face du premier d'entre eux 
une flèche déplaçable avec la barre 
d'espace. Cette flèche doit être amenée 
en face du champ servant de ‘filtre" à la 
| sélection. Ceci fait, l'appui sur la touche 
‘ENTER' permet d'entrer une chaîne de 
caractères qui servira de filtre. Après 
validation, le programme va rechercher 
dans le fichier toutes les fiches 
| correspondant à ce critère de choix. Il le 
fera savoir en affichant le nombre de 
fiches trouvées. Celles-ci pourront alors 
être lues avec la touche '+' 

6) Quitter prgm : quitte le programme et 
revient sous GWBasic. Cette option 
permet de quitter le programme (après 
confirmation) et fait revenir sous GWBasic 
après avoir fermé le fichier. 


REMARQUES COMPLEMENTAIRES : 


Toutes les options des deux menus se 
terminent par un retour aux menus. 
L'appui sur une touche autre que celles 
nécessaires à l'option en cours entraîne 
un beep sonore signalant l'erreur. 


STRUCTURE DU PROGRAMME : 


Le fonctionnement du programme est 
essentiellement axé sur l'utilisation de 
nonbreux sous-programmes afin de 
minimiser les opérations répétitives. Le 
nombre de lignes de programme écrites 
pour l'excécution des différentes options 
est ainsi réduit au minimum. 


Lignes 100 à 210: 

Lignes 100 à 210 : mise dans le tableau 
CH$ des noms des 7 champs plus la 
constante "n° de fiche :" 

Lignes 130 et 140 : mise dans le tableau 
LC de la longueur de chacun des 7 
champs. 

Ligne 150 : définition d'une fonction- 
chaîne permettant d'éliminer les blancs à 
droite des chaînes entrées comme 
contenu des champs dans le cas ou 
celles ci n'occupent pas toute la longueur 
du champ. Ceci permet de gagner de la 
| place en mémoire et de faire la sélection 
| des fiches (voir option Sélectionner du 
menu fiche.) 

Lignes 160 à 180 : création du fichier sur 
disque et définition de la structure des 
enregistrements.Le FIELD de la ligne 180 
définit un champ TOTALS d'une longueur 
égale à celle d'une fiche afin de permettre 
son effacement (voir option Effacer du 
menu Fiche.) 

| Lignes 190 à 210 : 2 tableaux sont 
déclarés (de taille variable suivant le 
nombre de fiches.) Le premier contiendra 
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AGENDA ‘ : Gestion de fichier a acces direct 
pour agenda personnel. 


Auteur : HUET Didier - Janvier 1989 


* 
* 
* 
* 
* 
* 
* 
* 


ÉTR TA'EELLELELLLLELELEEE EE EE EEE EEE ET EP EEE ECPECEEEEETEEEEENECEEEPENCCEERENCEEENEES 
90 REM 
100 DEFINT A-Z:OPTION BASE 1:KEY OFF:COLOR 15,0:CLS 
110 RESTORE 120:FOR I=1 TO 8:READ CH$(I):NEXT I 
120 DATA “ NOM :”," Prenom :”," Adresse :”," C. postal :”,"* VILLE :”," Telephone :”,* Date :”*,* N° 
fiche :” 
130 RESTORE 140:FOR I=1 TO 7:READ LC(I):NEXT I 
140 DATA 20,15,30,5,20,16,10 
150 DEF FN ST$(A$)=LEFTS (A$+SPACES (2) , INSTR (A$+SPACES (2) , SPACES (2) )-1) 
60 OPEN “agenda.dat” AS #1 LEN=116:XX=0 
FOR I=1 TO 7:FIELD #1,XX AS XX$,LC(I) AS VC$(I):XX=XX+LC(I):NEXT I 
FIELD #1,116 AS TOTAL$ 
NF=LOF (1) /116 
IF NF=0 THEN DIM C$(3),S(3) :GOTO 250 
DIM C$(NF),S(NF) 
PEM 
REM 
REM 5 
LOCATE 23,1:PRINT CHR$ (200) :LOCATE 23,80:PRINT CHR$ (188) : LOCATE ROSE CHR$ (201) 
FOR Y=2 TO 22:LOCATE Y,1:PRINT CHR$ (186) :LOCATE Y,80:PRINT CHR$(186):NEXT Y 
FOR X=2 TO 79:LOCATE 23, X:PRINT CHR$ (205) : LOCATE 10, X:PRINT CHR$(205):NEXT X 
80 LOCATE 10,1:PRINT CHR$(204):LOCATE 10,80:PRINT CHR$ (185) : LOCATE 10,32:PRINT CHR$ (202) : LOCATE 
16. 80:PRINT CHR$ (185) :LOCATE 23,S0:PRINT CHR$ (202) 
290 FOR Y=2 TO 9:LOCATE Y,32: PRINT CHR$ (186) :NEXT Y 
300 FOR Y=17 TO 22:LOCATE Y,50:PRINT CHR$S (186) :NEXT Y 
310 FOR X=51 TO 79:LOCATE 16,X:PRINT CHR$(205):NEXT X 
320 COLOR 0,15:LOCATE 1,1: PRINT STRINGS$ (80,32) 
330 LOCATE FE 4:PRINT “Fichier”: LOCATE 1,18:PRINT “Fiche”:LOCATE 1,53:PRINT “TOUCHES” 
340 LOCATE 3,34: PRINT * + “:LOCATE 5,34:PRINT * - “:LOCATE 7,34: PRINT * Q “:LOCATE 3,56:PRINT * M 
“:LOCATE 5,56:PRINT “ E “:LOCATE 7,56:PRINT * I * 
350 COLOR 15,0:LOCATE 3,38:PRINT “Fiche suivante”:LOCATE 5,38:PRINT “Fiche precedente”: LOCATE 
7,38:PRINT “Quitter option” 
360 LOCATE 3,60:PRINT “Modifier la fiche”:LOCATE 5,60:PRINT “Effacer la fiche”:LOCATE 7, 60:PRINT 
“Imprimer la fiche” 
370 


REM 

14 LLLLLLLLLLLELLLLLLLELLELL,EE)] MENUS *AARARARRRRRRRRRRRRRRRRRRARRRAR 
REM 

Te A Er SE ACID RE AE PEL APE 


COLOR 1 5,0:LOCATE 1,XM(K):PRINT M$ (K) 
T$=INPUTS (1) : ir TÉ=CHR (13) THEN 470 ELSE IF ASC(T$)<>9 THEN BEEP:GOTO 430 
COLOR 0,15:LOCATE 1,XM(K):PRINT M$ (K) 
K=K+1:1F K>2 THEN K=l 
GOTO 420 
ON K GOTO 490,620 


REM 
490 REM *émtmnemmmnnanenmmmtt MENU EXCEL de de de de de de ee re 
500 REM 
EE O$ (1)="Lire”:0$ (2)="Imprimer” :0$ (3)="Statut”:0$(4)="Effacer”:0$ (5)="Ratour DOS”:08 (6)="Aller 


520 L=10:XO=3:GOSUB 2140 
530 W=1:YO=3 
540 COLOR 0,15:LOCATE YO,XO+1:PRINT { 
550 TS=INPUTS (1) : IF Té=CHR$ (13) THEN 600 ELSE IF ASC(T$)=9 THEN GOSUB 2210:GOTO 440 ELSE IF T$<>" 
THEN BEBP:GOTO 550 
COLOR 15,0:LOCATE YO,XO+1:PRINT O$ (W) 
WeW+1:1F W>6 THEN W=l 
YO=YO+1:IF YO>8 THEN YO=3 
GOTO 540 
ON W GOTO 750,800,910,1020,1100,1170 


REM 
REM ### AR ARR NRA ARMAARRX MENU FICHE ie de de de de ee ee 
se REM 


08 (1)="Ajouter* 10$ (2)="Modifier":0$ (3)="Effacer": OÙ (4) = until mers: O$ (5)="Selectionner*: htc mr quitrse 


258 Le12: :X0=17:GOSUB 2140 

660 W=1 : YO=3 

670 COLOR 0,15:LOCATE YO,XO+1:PRINT O$ (W) 

680 T$=INPUTÉ (1) :IF T$=CHRÉ (13) THEN 730 ELSE IF ASC(T$)=9 THEN GOSUB 2210:GOTO 440 ELSE IF T$<>" 
* THEN BEEP:GOTO 680 


690 COLOR 15,0:LOCATE YO,XO+1:PRINT O$ (W) 
700 W=W+1:1F W>6 THEN W=1 
710 YO=YO+1:IF YO>8 THEN YO=3 

GOTO 670 

ON W GOTO 1250,1450,1610,1710,1800,2040 


REM 
REM *#*maataaanaiamattté LECTURE DU FICHIER #8 de de 2e de 8 et A 924 D AA A AR 
REM 3 
T=0:GOSUB 2590 

GOTO 420 


REM 
REM #hanetatéttetttttatt IMPRIMER LE FICHIER ## dede de de de de de de de de de 


REM 
COLOR 15,0:LOCATE 18,52:PRINT “LE FICHIER EST EN”:LOCATE 19,52:PRINT “COURS D’ IMPRESSION.” 
LF=LOF (1) /116 
NF=]l ‘ 
GET #1,NF 
GOSUB 2510 
NF=NP+1 
880 IF NF>LF THEN LOCATE 20,53:COLOR 31:PRINT “FIN DU FICHIER”:COLOR 15,0:FOR P=1 TO 4500:NEXT 
P:GOSUB 2460:GOSUB 2210:GOTO 420 
890 GOTO 850 
900 REM % 
910 REM ##émnæsamanteemnttrt STATUT DU FICHIER % #8 de tee 24 de eee ee ee AA A ON 
920 REM 
930 COLOR 0,15:LOCATE 18,58:PRINT “ NOM DU FICHIER :”:COLOR 15,0:LOCATE 20,62:PRINT “AGENDA” 
940 FOR Ym=l1l TO 22:LOCATE Y,15:PRINT CHR$(179):LOCATE Y,23:PRINT CHR$(179):LOCATE Y,34:PRINT 
CHR$ (179) :NEXT Y 
950 COLOR 7:LOCATE 12,5:PRINT “Champs”:LOCATE 12,17:PRINT “Type”:LOCATE 12,25:PRINT 
“Longueur” :COLOR 15 


tous les contenus du champ de sélection 
choisi dans l'option Sélectionner.Le 
second contiendra les numéros des 
fiches trouvées correspondant au critère 
de sélection. 


Lignes 250 à 370 : 

Affichage de l'écran de travail.Les 
bordures sont faites avec les caractères 
graphiques pris dans le jeu de caractères 
graphiques du PC 1512 en mode texte. 


Lignes 400 à 470 : 

Affichage et sélection des titres des deux 
menus. la ligne 470 effectue le 
branchement correspondant au menu 
choisi. 


Lignes 500 à 610 : 

Affichage du menu Fichier et sélection 
d'une option.La ligne 470 effectue le 
branchement correspondant au menu 
choisi. 


Lignes 630 à 740 : 

Idem que ci-dessus pour le menu 
Fiche.La ligne 730 effectue le 
branchement. 


Lignes 750 à 790 : 
Branchement au sous-programme de 
lecture du fichier. 


Lignes 800 à 900 : 

Impression de toutes les fiches du 
fichier.Les fiches sont lues une par une 
(ligne 850) et imprimées grâce au sous- 
programme d'impression (ligne 860). 
Lorsque la fin du fichier est atteinte (ligne 
880), il y a branchement aux deux sous- 
programmes d'effacement de la zone 
basse de l'écran (zone de travail et 
cadre) et d'effacement du menu suivi d'un 
retour aux menus. 


Lignes 910 à 1010 : 

Affichage du tableau présentant la 
structure du fichier.Les noms des 
champs, leur type et leur longueur sont 
affichés ainsi que lé nombre de fiches 
(lignes 980 et 990). Après une pause, la 
zone basse de l'écran s'efface (grâce au 
sous-programme en 2260 et 2210) ainsi 
que le menu et l'on revient aux menus. 


Lignes 1020 à 1090 : 

Effacement du fichier. Après confirmation, 
la ligne 1060 ferme le fichier et l'efface de 
la disquette. 

Lignes 1100 à1240 : 

Retour au DOS. Après confirmation, la 
ligne 1140 ferme le fichier, la zone de 
travail s'efface puis le menu et l'instruction 
SYSTEM fait revenir sous DOS. 


Lignes 1170 à 1240: 
Retour temporaire au DOS.Après 


960 FOR J=14 TO 20: LOCATE J,2:PRINT CH$(J-13):LOCATE J,17:PRINT “Alpha”:NEXT J 

970 RESTORE 970:FOR F=1 TO 7:READ H:LOCATE F+13,28:PRINT H:NEXT F:DATA 20,15,30,5,20,16,10 
980 LOCATE 12,36:PRINT “Le Hire Pnstiantet LOCATE 14,36:PRINT “actuellement fiches.” 
990 LF=LOF (1)/116:COLOR 7:LOCATE 14,49:PRINT USING <HH#"; LP: COLOR 15 

1000 FOR P=1 TO 5000:NEXT P:GOSUB 2260:GOSUB 2210:GOSUB 2460:GOTO 420 

1010 REM 

1020 REM *#*####kkatankaththñtéé EFFACER LE FICHIER LÉLELÉLIESLLLLLLLLLLLS LL. 

1030 REM 

1040 COLOR 15,0:LOCATE 19,52:PRINT “EFFACEMENT CONFIRME ? (O/N)” 

1050 T$=INPUTS (1) 


. 1060 IF T$="o" OR T$="0” THEN CLOSE:KILL “agenda.dat”:GOTO 1080 


1070 IF T$<>"n” AND T$<>"N” THEN BEEP:GOTO 1050 ELSE GOSUB 2460:GOSUB 2210:GOTO 420 
1080 LOCATE 19,52:COLOR 31:PRINT “LE FICHIER EST EFFACE “:FOR P=1 TO 5O000:NEXT P:COLOR 
15:GOSUB 2460:GOSUB 2210:GOTO 420 

1090 REM 

1100 REM #*####*a##kaa#t#tttrtatt RETOUR AU DOS *#*###RARRRRRRRRARRRRR ARR RAA ARE 

1110 REM 

1120 COLOR 15,0:LOCATE 19,55:PRINT “ARRET CONFIRME ? (O/N)” 

1130 T$=INPUTS (1) 

1140 IF T$="O”" OR T$="o" THEN CLOSE:GOSUB 2460:GOSUB 2210:CLS:SYSTEM 

1150 IF T$<>"n” AND T$<>"N” THEN BEEP:GOTO 1130 ELSE GOSUB 2460:GOSUB 2210:GOTO 420 
ES _ that atététthhété*é ALLER AU DOS LLLELLLLLLLLL LL LLLLLLLLLES EE) 

1180 REM 

1190 COLOR 15,0:LOCATE 18,55:PRINT “CONFIRMATION ? (O/N)” 

1200 LOCATE 20,55:PRINT “Taper EXIT pour revenir” 

1210 T$=INPUTS (1) 

1220 IF T$="O” OR T$="o”" THEN CLOSE:GOSUB 2460:GOSUB 2210:CLS:SHELL:RUN 

1230 IF T$<>"N” AND T$<>"n” THEN BEEP:GOTO 1210 ELSE GOSUB 2460:GOSUB 2210:GOTO 420 
1240 REM 

ss REM #*#akkakaataateatétatt AJOUTER UNE FICHE # #3 #6 de de de de ee de ee de eee 

1260 REM 

1270 NF=LOF (1)/116 

1280 NF=NF+1 

1290 GOSUB 2320 

1300 COLOR 15,0:LOCATE 14,67:PRINT USING “###”:NEF 

1310 LOCATE 12,19:LINE INPUT V$:IF V$="q” OR V$="Q” THEN NF=NF-1:GOTO 1420 

1320 LSET VC$(1)=v$ 

1330 CC=12 


1360 LOCATE CC,19:LINE INPUT V$:LSET VC$ (I1)=V$ 
1370 NEXT I 

1380 LOCATE 12,64:PRINT DATES$:LSET VC$ (7)=DATES 
1390 LOCATE 19,55:PRINT “Fiche correcte ? (O/N)* 


1400 T$=INPUTS (1):1F T$="n”" OR T$="N” THEN GOSUB 2260:GOSUB 2460:GOTO 1290 
1410 IF T$="o" OR T$="O”" THEN PUT #1,NF ELSE BEEP:GOTO 1400 

1420 ERASE C$,S:DIM C$(NF),S(NF) :NS=0 

1430 GOSUB 2260:GOSUB 2460:GOSUB 2210:GOTO 420 

1440 REM . 

1450 REM LELLLELLLLELLLLLLLLELE) MODIFIER UNE FICHE ## #2 #8 #8 #2 8 1h80 2 0 9e 2 A A fe A ON 

1460 REM 

1470 GOSUB 2920 

1480 T1$="m":T2$="M" 

1490 IF NUM=0 THEN TT=1:GOSUB 2590 

1500 IF NUM<>0 THEN TT=1:NF=NUM:GOSUB 2620 

1510 IF Té="q” OR T$="Q” THEN GOSUB 2260:GOSUB 2460:GOSUB 2210:GOTO 420 

1520 GOSUB 2750 

1530 IF W=7 THEN LOCATE 12,64:PRINT STRING$(15,32)::LOCATE 12,64:PRINT DATES:LSET 
VC$ (7) =DATE$ :GOTO 1570 , 

1540 LOCATE YF(W),19:PRINT STRINGS (31, 32) + 
1550 LOCATE YF(W),19:LINE INPUT V$ 

1560 LSET VC$ (W)=v$ 

1570 GOSUB 2460:COLOR 15,0:LOCATE 19,52:PRINT “Autre modification”:LOCATE 20,52:PRINT “dans cette 
fiche ? (O/N)” 

1580 28 US (L):IF T$="o" OR T$="0”" THEN GOSUB 2460:LOCATE YF(W),XF(W):PRINT * *:GOSUB 
2750:GOTO 1 

1590 IF Hit OR T$="n" THEN PUT #1,NF:GOSUB 2260:GOSUB 2460:GOSUB 2210:GOTO 420 

1600 REM : 

1610 REM #*##*#ttttatatttttttt EFFACER UNE FICHE ##%% de de de de de de de de ee HA A A AA 


: 1620 REM 


1630 GOSUB 2920 
1640 T1$="e":T2$="E" 
1650 IF NUM=0 THEN TT=3:GOSUB 2590 
IF NUM<>0 THEN TT=3:NF=NUM:GOSUB 2620 
IF T$*”q”" OR T$="Q" THEN 1690 
LSET TOTAL$="":PUT #1,NF:GOSUB 2460:LOCATE 19,52:PRINT "Cette fiche est effacee.….”:FOR P=1 TO 


:NEXT P 
GOSUB 2260:GOSUB 2460:GOSUB 2210:GOTO 420 


REM 
REM ###hhhhataañtttrañttthtt* IMPRIMER UNE FICHE #**#RARRRARRARRRRRRAARRRRRÉ 
REM 
GOSUB 2920 
T1$="1":T2$="1" 
IF NUM=0 THEN TT=2:GOSUB 2590:1IF T$="q” OR T$="Q” THEN 420 ELSE 1770 
IF NUM<>0 THEN TT=2:NF=NUM:GOSUB 2620:1F T$="q” OR T$="Q” THEN 420 
1770 GOSUB 2510 
1780 GOSUB 2260:GOSUB 2210:GOSUB 2460:GOTO 420 
1790 REM 
1800 REM A A SELECTION DE FICHES #*#*##%44%AARRARRRRRRR RER RE 
1810 REM 
1820 GOSUB 2320:GOSUB 2750 
1830 LF=LOF (1) /116 
1840 FOR F=1 TO LF:GET #1,F:C$(F)=FN ST$(VC$(W)):NEXT F 
1850 IF W=7 THEN LOCATE 12,64:LINE INPUT.W$:GOTO 1870 
1860 LOCATE YF(W),19:LINE INPUT W$ 
1870 LOCATE 18,52:PRINT “Recherche des fiches avec”:COLOR 7:LOCATE 19,52:PRINT W$:COLOR 15:LOCATE 
20,52:PRINT "dans le champ “;:COLOR 7:PRINT CH$ (W) : COLOR 15 
1880 NS=0 
1890 FOR N=1 TO LF:IF INSTR(C$(N),W$)=0 THEN 1910 
1900 NS=NS+1:S(NS)=N 
1910 NEXT N 
1920 LOCATE 22,55:COLOR 7:PRINT NS; :COLOR 15:PRINT “fiches trouvees.” 
1930 FOR B=1 TO NS:G=S(B):GET #1,G 
1940 GOSUB 2870 
1950 COLOR 15,0:LOCATE 14,67:PRINT USING “###”;:G 
1960 LOCATE 12,64:PRINT VC$ (7) 


ERIC 


confirmation, la ligne 1220 ferme le fichier, 
la zone de travail s'efface puis le menu et 
l'instruction SHELL fait revenir 
temporairement au DOS. L'instruction 
RUN permet de relancer le programme 
après avoir tapé sous DOS la commande 
EXIF 44 


Lignes 1260 à 1430 : 


Option Ajouter du menu Fiche. 
Lignes 1270 et 1280 : incrémentation du 
nombre de fiches. 


Ligne 1290 : branchement au sous- 
programme d'affichage des noms des 
champs dans la zone de travail. 

Lignes 1300 à 1380 : saisie de la fiche. 
Lignes 1390 à 1410 : confirmation de la 
saisie et écriture de la fiche dans le 
fichier. 

Lignes 1420 : effacement des tableaux 
servant à la sélection de fiches et 
redimensionnement avec nouveau total 
de fiches. Mise à zéro du nombre de 
fiches sélectionnées. 

Ligne 1430 : branchement aux divers 
sous-programmes d'effacements. 

Lignes 1450 à 1600 : 

Option Modifier du menu Fiche. 

Ligne 1470 : 

Branchement au sous-programme 
d'accès à une fiche. 

Lignes 1490 et 1500 : 

Branchement au sous-programme de 
lecture du fichier suivant numéro de fiche 
à modifier. 

Lignes 1530 à 1560 : 

Modification de la fiche. 

Lignes 1570 à 1590 : 

Autre modification éventuelle. 

Lignes 1610 à 1690 : 

Option Effacer du menu Fiche 

Ligne 1630 : 

Branchement au sous-programme 
d'accès à une fiche. Lignes 1650 et 1660 
: branchement au sous-programme de 
lecture du fichier suivant numéro de fiche 
à effacer. 

Ligne 1680 : 

Effacement de la fiche. L'effacement 
proprement dit n'étant pas possible, la 
fiche est "mise à blanc” en la réécrivant 
avec le champ TOTALS$ mis à blanc 
(chaîne vide). 


Ligne 1710 à 1780 : 

Option Imprimer du menu Fiche. 

Ligne 1730 : branchement au sous- 
programme d'accès à une fiche. 

Lignes 1750 et 1760 : branchement au 
sous-programme de lecture du fichier 
suivant numéro de fiche à imprimer. 
Ligne 1770 : branchement au sous- 
programme d'impression. 


Lignes 1800 à 2030 : 
Option Sélectionner du menu Fiche. 


1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 


U=1:FOR N=12 TO 22 STEP 2:LOCATE N;19:PRINT VC$ (U) :U=U+1:NEXT N 

T$=INPUTS (1) 

IF T$="+" THEN 2000 ELSE IF T$="q" OR T$="Q" THEN 2020 ELSE BEEP:GOTO 1980 
NEXT B 

FOR P=1 TO 4500:NEXT P 

GOSUB 2260:GOSUB 2460:GOSUB 2210:GOTO 420 


REM 
REM ###ARARAAAAAAMAAA ARE QUITTER PROGRAMME # #2 # ee dede de dede de ee ee A de 


2050 REM 


2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 


COLOR 15,0:LOCATE 19,55:PRINT “ARRET CONFIRME ? (O/N)" 

T$=INPUTS (1) 

IF T$="o” OR T$="O0" THEN CLOSE:GOSUB 2460:GOSUB 2210:CLS:END 

IF T$<>"n” AND T$<>"N” THEN BEEP:GOTO 2070 ELSE GOSUB 2460:GOSUB 2210:GOTO 420 

REM tete fete de ee fee de ee ee ee fe fe ee ef ee ee fe fe ee ee ee ee ee A 

REM 

REM ——— SOUS -PROGRAMMES 

REM 

REM ——— s.p. deroulement d’un menu 

REM 

LOCATE 2,XO:PRINT CHR$(201);:FOR C=l TO L:PRINT CHR$ (205); :NEXT C:PRINT CHR$ (187 

FOR Y=3 TO 8:LOCATE Y,XO:PRINT CHR$ (186) ;: O$ (Y-2) ; STRING$ (L-LEN (O$ (Y-2)),32) ; CHR$ (186) :NEXT Y 
LOCATE 9,XO:PRINT CHR$ (200); :FOR C=1 TO L:PRINT CHR$ (205); :NEXT C:PRINT CHR$ (188) 
RETURN : 
REM 

REM ———— #s.p. effacement d’un menu 


2220 REM 
2230 COLOR 0,0:FOR Y=9 TO 2 STEP -1:LOCATE Y,XO:PRINT STRING$ (14,32) :NEXT Y:COLOR 15,0 


2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 


‘2370 


2380 
2390 
2400 
2410 
2420 


RETURN 

REM F 

REM ——— #.p. effacement zone bas d'ecran 

REM 

FOR Y=11 TO 22:LOCATE Y,2:PRINT STRINGS (48,32) :NEXT Y 

FOR Y=11 TO 15:LOCATE Y,50 :PRINT STRING$ (30,32) :NEXT Y 
RETURN 

REM 

REM ——— #.p. affichage des champs 

REM 

COLOR 0,15 

J=1l:FOR Y=12 TO 22 STEP 2:LOCATE Y,6:PRINT CH$ (J) :J=J+1:NEXT Y 
LOCATE 12,55:PRINT CH$ (7) :LOCATE 14,55:PRINT CH$ (8) 

RETURN 

REM 

REM —— s.p. erreur fichier 

REM 

BEEP : COLOR 31,0: Rio 21,55:PRINT “LECTURE IMPOSSIBLE |” 

IF T$="+" THEN 22,57:PRINT “Fin du fichier.” ELSE LOCATE 20,55:PRINT “Debut du 


fichier...” 


3000 


FOR P=1 TO 5000:NEXT P:GOSUB 2460 
COLOR 15 :RETURN 
REM 


s.p. effacement cadre bas d'ecran 
REM 
COLOR 0,0:FOR Y=17 TO 22:LOCATE Y,51:PRINT STRINGS (29,32) :NEXT Y 
RETURN 


REM 
REM ———— #.p. impression d'une fiche 


REM 
pres sT$ (VCS (1)) 
NT NOM$;* 


:VC$ (2) 
LPRINT vC$ (3): LPRINT VC$(4);" “;VC$ (5) :LPRINT “Tel. : “;VC$ (6) 
LPRINT 


RETURN 
s.p. lecture du fichier 


COLOR 15,0:LOCATE 14,67:PRINT USING “###”;:NF:LOCATE 12, 64:PRINT VC$ (7) 
U=l:FOR N=12 TO 22 STEP 2:LOCATE N,19:PRINT VCS (U) :U=U+1:NEXT N 
T$=INPUTS (1) 
IF Té="+" THEN 2720 
IF T$="-" THEN 2730 
IF-Té="q" OR T$="Q” THEN GOSUB 2460: cosuB 2260:GOSUB 2210:RETURN 
1F Té=TIs OR Té=T2$ THEN RETURN ELSE BEEP:GOTO 2670 
LF=LOF (1)/116:NF=NF+1:1F LF<NF THEN GOSUB 2390:NF=NF-1: :GOTO 2670 ELSE 2630 
NF=NF-1:1F NF=0 THEN GOSUB 2390:NF=1:GOTO0 2670 ELSE 2630 
REM 
REM ——— #s.p. deplacement fleche 
RESTORE 2770:FOR M=l TO 7:READ YF(M):NEXT M 
DATA 12,14,16,18,20,22,12 
FL$m=*->":FOR M=1 TO 6:XF(M)=3:NEXT M:XF (7)=52 
W=l 
COLOR 15,0:LOCATE YF(W),XF (W):PRINT FL$ 
TÉ=INPUTS (1):IF TÉ=CHRS (13) THEN 2850 ELSE IF T$<>" “ THEN BEEP:GOTO 2810 
LOCATE YF (W),XF (W): ir " 
WeW+1:IF W>7 THEN We: 
GOTO 2800 
RETURN 
REM 
REM —— s.p. effacement donnees fiche — 
COLOR 0,0:FOR Y=12 TO 22 STEP 2:LOCATE Y,19:PRINT STRING$ (31, 32) :NEXT Y 
LOCATE 12,64:PRINT STRING (16, 32) :LOCATE 14,67:PRINT 
TURN 


s.p. demande No de fiche 


REM d 

COLOR 15,0:LOCATE 17,52:PRINT “ACCES FICHE PAR SON NUMERO :” 

LF=LOF (1) /116 

LOCATE 19,52:PRINT “Numero fiche (1 a”;:LF;") :";:LINE INPUT NUM$ 
(NUM$) 

IF NUM>LF THEN BEEP:GOSUB 2460:GOTO 2920 

IF NUM=0 THEN GOSUB 2460 

RETURN 


D — 


Ligne 1820 : branchement au sous- 
programme d'affichage des champs et au 
sous programme de déplacement de la 
flèche de sélection de champ. 

Ligne 1840 : lecture des fiches et 
remplissage du tableau C$ avec le 
contenu des champs de toutes les fiches 
correspondant au champ sélectionné 
diminue des blancs à droite. 

Ligne 1860 : saisie de critères de 
sélection dans le champ choisi. 

Ligne 1880 : mise à zéro du nombre de 
fiches trouvées. 

Lignes 1890 à 1910 : recherche des 
fiches répondant au critère de sélection 
et incrémentation du nombre de fiches 
trouvées.Le tableau S est rempli avec le 
numéro des fiches sélectionnées. 

Lignes 1930 à 2000 : lecture des fiches 
trouvées et affichage de ces dernières. 
Lignes 2040 à 2090 : Option Quitter 
prgm du menu Fiche. 

Ligne 2080 : après confirmation d'arrêt, 


Fichier iche 


--> NOM : TERIEUR 
Prenom : Alain 
Adresse Chemin Vert 
C. postal : 18000 
VILLE : BOURGES 


Telephone : 48-58-48-58 


Fichier 


Prenom : 


Adresse : 


Cspostal: 


VILLE : 


Telephone : 


fermeture du fichier et arret du 
programme, retour au GWBasic. 


Lignes 2120 à 3000 : 
SOUS-PROGRAMMES 

Lignes 2140 à 2190 : s.p. de déroulement 
et affichage d'un menu. 

Lignes 2210 à 2240 : s.p. d'effacement 
d'un menu. 

Lignes 2260 à 2300 : s.p. d'effacement de 
la zone de travail du bas de l'écran. 
Lignes 2320 à 2370 : s.p. d'affichage des 
champs dans la zone de travail. 

Lignes 2390 à 2440 : s.p. d'affichage 
d'erreur de lecture du fichier (tentative de 
lecture avant la première fiche ou après la 
dernière). 

Lignes 2460 à 2490 : s.p. d'effacement du 
cadre de la zone basse de l'écran. 
Lignes 2510 à 2570 : s.p. d'impression 
d'une fiche. La chaîne contenue dans le 
champ "NOM :" (VCS$(1)) est diminuée des 


OUCHES 
+ Fiche suivante 
- Fiche precedente 


Q Quitter option il 


Date : 


N'sfiche: 


01-08-1989 


blancs à droite pour que le prénom soit 
imprimé à bonne distance du nom. 
Lignes 2590 à 2740 : s.p. de lecture du 
fichier. 

Lignes 2750 à 2850 : s.p. de déplace- 
ment de la flèche de sélection de champ 
pour les options ‘Modifier’ et ‘Sélectionner 
du menu ‘Fiche’. 

Lignes 2870 à 2900 : s.p. d'affichage du 
contenu des fiches. 

Lignes 2920 à 3000 : s.p. d'accès à une 
fiche par son numéro. 


REMARQUES FINALES : À la fin de 
chaque option, il y a effacement de la 
zone de travail, du cadre de la zone 
basse de l'écran et du menu en cours 
grâce aux sous-programmes 2260, 2460 
et 2210. Toutes les options se terminent 
par un retour aux menus. 


M Modifier la fiche 
E Effacer la fiche 


Imprimer la fiche 


4 


ACCES FICHE PAR SON NUMERO : 
Numero fiche (1 a 10 ) 4 


Fiche 


Fiche suivante 
Fiche precedente 


Quitter option 


DURAND 
Marcel 
13/"Bd; 
75008 

PARIS 
44-44-55-55 


TOUCHES 
M Modifier la fiche 
E Effacer la fiche 


I Imprimer la fiche 


Date : 01-08-1989 


N° fiche : 2 


N°1 

L'éveil des compatibles : 15 PC à 
moins de 10 000 F L'explosion des 
logiciels juniors - Les mémoires de 
masse pour PC. 


N°6 

Carte 286 - Amstrad 1640 - TO16 
de Thomson - PC1 de Commodore 
- Jasmin AT32 de Tran - Tulip PC2 
- Vicki de Victor - Viva el C! 


N°11 

PC2 : Atari prend la carte du PC 
-AT, aube ou crépuscule ? —Agents 
de poche: les mini-terminaux - 
Windows 2. 


Impressions sur imprimantes - IBM 
New Look - Qui veut la tête de la 
5"25? Turbo Basic - Les cartes 
graphiques Cartes de séjour pour 
programmes résidents. 


N°7 

La galaxie dBase : les substitua- 
bles et les complémentaires —- 
Sanyo 17+ : Baby 286 à etit prix 
-Carte Périscope - Quattro - 
Bourse : l'informatique en cause. 


CE FRMRETO 


une disquette 


de programmes dlilaires 


N°12 

Test-match : Tandy 1000HX contre 
Olivetti PC1 - Pomper le minitel : 
un jeu d'adresses - Secrétariat 
high-tech : le futur au présent. 


Veuillez m'adresser, pour 20 F par numéro : 
On°1 On°2 On°3 On°4 On°5 n°6 On°7 On°8 On°9 On°10 On°11 [n°12 On°13 On°14 On°15 On°16 En°17 
Pour 25 F le numéro : [n°18 Pour 22 F le numéro : [n°19 n°20 Oln°21 On°22 On°23 
[la série des quinze numéros pour 225 F 


Comnatitles 


Imprimante Brother M-1709 
-Amstrad PC 1512 disque dur à la 
loupe - Panorama des bases de 
données - Prix étudiés pour étu- 
diants. 


N°8 

Bancs d'essai : R :Base System et 
Sidekick.Plus - Amiga-2000 : un 
PC compatible amiga - La micro en 
caddie - Portraits-robots de 12 
micro-maniaques. 


Microsoft Works : quatre outils en 
un - Zéro code: la gestion de fi- 
chiers sans programmation exis- 
te-t-elle ? Nouveautés : Above Disc, 
Harvard Graphics, Turbo Power. 


Ville. one 


Règlement par : [chèque bancaire [chèque postal [mandat 


à adresser à: 


Tandon PC-X ou l'art de se démar- 
quer - PS/2 8530 : compatible PC 
ou compatible IBM ? - Dix moni- 
teurs sur la sellette - Test : êtes- 
vous doué pour la micro ? 


Dossier PAO - Logiciels : Excel.et 
RapidFile - Match: Thomson 16 
XP-HD contre Amstrad PC 1640. 


N°14 

Bonne fête Mémé : sept logiciels 
de micro édition à l'essai — Lucid 
3D : tableur toujours prêt ! - Lap 
Link, DMS/PC, DocWord et dGE 
-Initiation Basic: menus et pop- 
ups. 


Toshiba : deux portatifs - Diconix 


imprimante à jet d'encre — Mul- 
titech, le compagnon mini AT - 


Modems à la carte - Sprint. 


N°10 


Tandon Target : un baby efficace 
-imprimante:Nec P2200 - Know- 
ledge Network - Byline - Turbo 
Pascal 4.0 - Softburger : un digest 


de 19 logiciels. 


Dossier : Micro portatif, ne partez 
pas sans lui ! Nouveaux : HiCard 2, 
KX Master et Microdraft - Initia- 
tion Basic : multifenêtrage - Trucs 
Dos. 


6 2 2 2 3 0 10 200 0 0 2 0 Où mom om mn me 6 


[la série de six numéros pour 100 F 


COdCDOSTAR ER Re RE tee 


Laser Presse, Compatibles PC Magazine. Anciens numéros — 5/7, rue de l'Amiral Courbet 94160 Saint-Mandé. 


